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Update  of  an  Efficient  Computer  Code  (NLTE)  to 
Calculate  Emission  and  Transmission  of  Radiation 
Through  Non-Equilibrium  Atmospheres 


I.  INTRODUCTION 

The  Air  Force  Geophysics  L.-boratory  (AFGL)  is  in  the  process  of  developing 
comprehensive  FORTRAN  codes  for  calculating  the  radiance  due  to  infrared-active 
species  in  the  upper  atmosphere.  The  objective  of  this  work  is  to  improve  the 
understanding  of  the  physics  and  chemistry  of  the  upper  atmosphere.  In  particular, 
the  codes  deal  with  atmospheric  conditions  in  which  local  thermodynamic  equili¬ 
brium  (I.TE)  cannot  be  assumed;  that  is,  conditions  under  which  the  populations  of 
ro- vibrational  states  cannot  (necessarily)  be  given  by  a  Boltzmann  distribution 
with  the  kinetic  temperature. 

This  report  describes  program  NLTE,  which  is  a  general  line-by-line  code 
predicting  the  infrared  radiance  from  individual  molecular  species  at  an  observing 
site  located  within  the  upper  atmosphere  or  in  limb  geometry  viewing  from  out¬ 
side  the  atmosphere.  The  present  version  of  the  program  assumes  that  lines  do 
not  overlap  to  an  appreciable  extent  and  that  there  are  no  lateral  variations  in  the 
atmosphere.  It  operates  in  a  stand-alone  mode  and  also  is  being  incorporated  into 
a  largi  r  package  for  use  in  iterative  or  repetitive  applications.  Emphasis  has 
been  -'laced  upon  (1)  achieving  accurate  results  at  all  steps  of  this  detailed  calcu- 
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lation,  and  (2)  making  the  program  easy  to  use  and  transportable.  Since  its  first 
release,  1  NLTE  has  undergone  substantial  revisions  which  make  it  much  faster 
and  give  it  more  capabilities,  and  which,  therefore,  necessitate  a  new  release 
and  this  accompanying  report. 

The  program  output  consists  of  the  total  radiance  (watt/cm  ^ -ster)  for  a 
specified  vibrational  band  for  a  set  of  viewing  paths,  and  also  the  spectral  radiance 
{watt /cm " -ster-/i  m  or  watt/cm^-ster-cm  ^)  if  an  instrumental  resolution  para¬ 
meter  is  provided.  The  band  radiance  is  just  the  sum  of  the  integrated  radiance 
for  all  the  individual  lines.  If  a  single  ro-vibrational  transition,  rather  than  an 
entire  band,  is  requested,  the  program  gives  the  integrated  line  radiance  and  also 
many  intermediate  results,  including  the  detailed  spectral  radiance  profile  for  the 
line. 

NLTE  requires  the  user  to  prepare  three  input  files.  They  specify  (1)  the 

molt  cule,  isotope,  and  band  under  consideration,  and  the  viewing  geometry;  (2)  the 

atmospheric  profile;  and  (3)  an  appropriate  subset  of  the  AFGL  Atmospheric  Ab- 

2  3  4 

sorption  Line  Parameters  Compilation.  ’  '  In  the  case  of  the  second  file,  the 
quantities  required  for  an  altitude  range  sufficient  to  complete  the  calculation  are 

(a)  the  kinetic  temperature,  T  , 

(b)  the  total  number  density  and  a  vibrational  temperature  characterizing  the 
the  upper  level  of  the  band  under  consideration  (and,  for  hot  bands,  the  lower  level 
as  well)  or  equivalent  information,  and 

(c)  a  vibrational  temperature  for  the  lowest-lying  excited  state  for  ust  : 
calculating  the  vibrational  partition  function,  or  equivalent  information.  "Equi¬ 
valent  information”  for  both  (b)  and  (c)  consists  of  number  densities  of  lower  and 
upper  vibrational  levels.  The  third  file  is  necessary  because  it  provides  the 
properties  of  the  individual  ro-vibrational  transitions,  which  are  needed  to  deter¬ 
mine  the  absorption  and  reradiation  of  energy  by  each  line  in  the  wavelength  region 
under  consideration. 

1.  Sharma,  R.D.,  Siani,  H.,  Bullitt,  M.,  and  Wintersteiner,  P.  P.  (1983)  A 

Computer  Code  to  Calculate  Emission  and  Transmission  of  Infrared  Radia- 
t ion  Through  a  Non-Equilibrium  Atmosphere,  AFGL-TR-83-0168, 

AD  A  1 3 7 1 62 . 

2.  McClatchey,  R.A.,  Benedict,  W.S.,  Clough,  S.A.,  Burch,  D.E.,  Calfee, 

R.F.,  Fox,  K.,  Rothman,  L.  S. ,  and  Garing,  J.S,  (1973)  AFCRL  Atmos- 
pheric  Absorption  Line  Parameters  Compilation,  /  FCRL-TR-73-0096, 

AD  762904. 

3.  Rothman,  L.  S. ,  Gamache,  R.R.,  Barbe,  A.,  Goldman,  A.,  Gillis,  J.R., 

Brown,  L.R.,  Toth,  R.A.,  Flaud,  J.  M. ,  and  Camy-Payret,  C.  (1983) 

AFGL  atmospheric  absorption  line  parameters  compilation:  1982  edition, 

Appl,  Opt,  22 :2247. 

4.  Rothman,  L.  S. ,  Goldman,  A.,  Gillis,  J.R.,  Gamache,  R.R.,  Pickett,  H.M., 

Poynter,  R.L.,  Husson,  N. ,  and  Chedin,  A.  (1983)  AFGL  trace  gas  compi¬ 
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Section  2  of  this  report  gives  the  formulation  of  the  problem  and  the  algorithms 
employed  in  its  solution.  Section  3  describes  how  to  use  the  code,  and  Section  4 
gives  examples  of  some  of  the  results  obtained  to  date.  The  appendixes  contain 
the  source  code  and  sample  program  output. 


2.  FORM!  I.ATION 

2.1  Ruiliulm-  Transfer  Problem 

The  problem  of  radiative  transport  along  a  viewing  path  within  an  absorbing 
and  emitting  medium  is  formulated  most  generally0  in  terms  of  the  equation  of 
transfer. 


1  dlp(s) 

Ms)p(s)  ds  Ju(s)  '  lvis) 


( 1  ) 


and  whatever  boundary  conditions  are  appropriate.  In  this  equation,  both  Ij,, 
which  is  the  specific  intensity  of  radiation  at  wavenumber  v ,  and  J*,,  the  source 
function,  have  units  of  watts/(cm~  -ster-cm ” 1  )  or  equivalent  units  (for  example, 
photons/sec  instead  of  watts,  micrometers  instead  of  cm  1  >.  The  viewing  path  is 
parameterized  by  the  position  variable,  s.  The  absorption  coefficient  (cm"  /mole¬ 
cule)  and  the  total  number  density  (molecules/cm  )  of  the  molecular  specie  in 
question  are,  respectively,  k,,  and  p.  Furthermore,  the  optical  depth  between  an 
observation  point  s  and  a  reference  point  s'  is  defined  by  a  line  integral  over  the 
viewing  path: 


I’d  (s,  s  '  ) 


s 


ky(s  ")  p  (s')ds' 


(2) 


In  the  problem  we  are  presently  considering,  the  only  processes  of  interest 
within  the  atmosphere  are  stimulated  and  spontaneous  emission  from  molecules 
in  the  excited  state  of  the  transition  in  question,  and  absorption  by  molecules  in 
the  corresponding  lower  state.  That  is,  scattering  into  and  out  of  the  beam  is 
neglected.  The  equation  of  transfer  for  this  case  can  thus  be  derived  directly 
from  the  three  Einstein  coefficients  and  the  populations  of  the  upper  and  lower 


5.  Chandrasekhar,  S.  (1960)  Radiative  Transfer.  Dover,  New  York. 


radiating  states. 


Using  the  relations  between  these  coefficients. 
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we  arrived  at 
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dlj,(s)  h  //  0 

— T®  Blurv(s)n£  (s)  [2ci/?(s>  -  I„(a)  (1  -V  (si)]  (3) 

where  the  position-dependence  is  written  explicitly  and  the  frequency-dependence 
is  indicated  by  the  subscript  v  .  In  this  equation,  nt  is  the  lower-state  number 
density,  f  v  is  the  normalized  lineshape  of  the  absorption  coefficient,  B^u  is  the 
Einstein  coefficient  for  absorption,  vQ  is  the  resonant  frequency  in  wave-numbers, 
h  is  Planck's  constant,  c  is  the  speed  of  light,  and  y  is  given  by 


y  (s) 


gjnu(s) 

gUn£  <s> 


(4) 


where  the  g's  are  statistical  weights  of  the  upper  (u)  and  lower  {l )  radiating  states 
and  the  n's  are  the  number  densities.  The  (  1  -  T )  factor  in  Eq.  (3)  accounts  for 
stimulated  emission. 

By  "normalized  lineshape,  "  we  mean  that  fj,  satisfies 


CO 


/' 


v 


(5) 


In  NLTE,  the  Voigt  profile  is  used  for  lv,  although  the  user  can  specify  a  Doppler 
lineshape  if  necessary. 

The  correspondence  between  Eqs.  (1)  and  (3)  reveals  that  the  absorption 
coefficient  is  given  by 


kj,(s) 


c 


B 


Hu 


fp  (s) 


n^  (s) 
P  (s) 


(i  -  y<s>) 


(6) 


and  the  source  function  by 


Vs) 


2d,* 
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?(s) 

i  -  y( s) 


(7) 
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The  absence  of  an  explicit  frequency-dependence  is  proper  for  this  particular 
source  function.  The  emission  coefficient,  j  v  ,  which  has  the  same  units  as  the 
absorption  coefficient  and  plays  an  analagous  role,  contains  the  frequency-depen¬ 
dence  and  is  given  by 

j  J/  =  ky  J  y  (8) 

The  boundary  conditions  for  the  problem  can  be  determined  from  the  allowed 
viewing  paths,  which  are  shown  in  Figure  1.  Since  the  paths  begin  above  the 
atmosphere,  the  intensity  I ^ (s 1  )  must  be  zero  for  all  frequencies  unless  the  line- 
of-sight  intersects  the  sun,  or  else  some  other  zodiacal  contribution  is  not  negli¬ 
gible.  In  either  case,  this  contribution  can  be  separated  completely  from  the 
atmospheric  emission  and  treat  ’  .mple  attenuation  problem,  so  we  do  not 

discuss  it  further  in  this  dr  -.m^nt. 


2.2  Formal  Solution 

With  this  particular  boundary  constraint,  the  formal  solution  of  Eq.  (1)  for 
the  line-of-sight  path  extending  from  s'  to  the  observer  at  s  can  be  written  as 


Ip(s) 


s 

Jy  (s  )  kj/ 


<s")p<s">e'Vs>s">ds" 


(9) 


With  the  help  of  Eqs.  (4-8)  and  the  relation  between  B ,  and  the  Einstein  A  co- 
efficient. 


3 

A  =  Snbv  —  B. 

o  g  Hu 

6U 


it  is  transformed  to 


(10) 


fS 

Ij/(s)  =  /  jj,  (s")p  (s")e  T  i/^s,s  ^ds" 

•'s' 

=  Vs">f|/  (s")e'Tl/(s*S")ds’ 


(11) 


The  first  form  of  Eq.  (11)  expresses  the  facts  that  (1)  an  amount  of  radiant  energy. 


Figure  la.  Limb  Viewing  Path  in  a  Layered  Atmosphere.  sQ  is 
the  beginning  of  the  path,  s^./2  is  the  tangent  point,  and  is  the 
location  of  the  observer.  In  the  text,  s0  and  s^  are  referred  to 
as  s'  and  s,  respectively 


jy,  emitted  per  molecule  at  frequency  v  at  the  point  s''  along  the  path  (per  cm 
per  ster)  is  reduced  by  an  amount  (the  exponential)  determined  by  the  optical 
depth  between  that  point  and  the  observer  at  s;  and  (2)  that  the  total  radiance  due 
to  all  points  s"  between  s'  and  s  is  just  the  total  (integral)  contribution  from  all 
such  points  weighted  by  the  total  number  of  emitters.  The  second  integral 
expresses  the  same  thing  in  slightly  different  terms:  the  volume  emission  rate 

(photons /sec  -  cm  -ster -cm  )  is  simply  An  f „  / 4 rr . 

7  ^ 

Bullitt  et  al  have  further  transformed  the  formal  solution  into  expressions 
that  make  it  easy  to  visualize  how  the  complicated  single-line  radiance  profiles 


7.  Bullitt,  M.K.,  Bakshi,  P.M.,  Picard,  R.H.,  and  Sharma,  R.  D.  (1985)  Nu¬ 
merical  and  analytical  study  of  high-resolution  limb  spectral  radiance  from 
non-equilibrium  atmospheres,  J,  Quant.  Spectrosc,  and  Rad.  Transfer. 
34:33. 
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evolve,  and  that  also  lead  to  some  useful  analytical  approximations.  They  make 
the  definitions 


-r ,,  (s,  s") 

F„(s.s")  =  k„(s")  P(s")e  v 


R(s) 


2cj/ 


y(s) 


o  i  -y(s)  * 


(12) 

(13) 


R  is  just  the  source  function,  and  F^,  serves  as  a  weighting  function  for  the  path 
when  the  radiance  at  the  observation  point  is  written  as 


lv  (s) 


s 

L 


R(s")  F.  (s.s")  ds'1 


(14) 


This  form  is  intrinsically  no  simpler  than  the  others;  we  introduce  it  because  we 
later  make  use  of  arguments  which  most  easily  are  expressed  in  terms  of  the 
quantity  R. 

2., 1  M.TK  Algorithm 
2.3.1  LAYERING 

Our  prescription  for  solving  for  the  radiance  relies  upon  the  assumption  that 
a  stratified  model  atmosphere  consisting  of  homogeneous  concentric  layers  (see 
Figure  1)  can  be  made  into  a  sufficiently  accurate  representation  of  the  actual 
atmosphere  to  produce  correct  results.  In  NLTE,  the  altitude  grid  is  defined  by 
whatever  altitudes  are  read  on  the  atmospheric  profile  data  file.  The  properties 
of  the  layers  are  then  determined  from  the  pairs  of  grid  points  bounding  each  of 
them.  In  the  case  of  temperatures,  the  average  value  is  used;  in  the  case  of 
number  densities,  the  mean  square  value  is  used.  For  example,  for  the  ith  layer 


T1  ■  2  *  TVl>| 

(15a) 

1/2 

Pi  =  |P(ai)p(Vi>| 

(15b) 

It  is  understood  that  each  position  s  along  the  viewing  path  is  associated  with  an 
altitude,  h,  which  is  really  the  correct  parameter  for  the  physical  properties  of 
the  atmosphere. 


7 


2.3.2  OPTICAL  DEPTH 

The  optical  depth  at  frequency  v  is  obviously  an  important  quantity  for  the 
radiance  calculation.  In  order  to  calculate  it  numerically,  we  must  correlate  the 

2 

Einstein  absorption  coefficient  with  the  information  contained  in  the  AFGL  database, 
namely  the  line  strength  S(Tg)  evaluated  under  conditions  of  LTE  at  the  standard 
temperature,  Tg  =  296  K.  For  arbitrary  conditions,  the  line  strength  S  satisfies 

Sf  v  =  k„  (16) 

and  in  fact  is  equal  to  the  absorption  coefficient  integrated  over  v  ,  The  connec¬ 
tion  with  the  Einstein  absorption  coefficient  is  made  through  Eq.  (6),  in  which  the 
ratio  n  J P  is  simply  the  probability,  P.  ,  that  the  lower  ro- vibrational  state  be 
occupied  under  the  specified  conditions.  It  follows  that 


S(Ts> 

P£<TS'TS> 


1  -  e  -c2l'o/Ts 


-1 


(17) 


where  S,  P^,  and  (l-y)  are  evaluated  for  conditions  of  LTE  at  the  temperature 
T  .  Cg  is  the  second  radiation  constant.  6  Then,  for  arbitrary  conditions,  one 
can  plug  Eq.  (17)  into  Eq.  (6)  and  use  Eq.  (16)  in  Eq.  (2)  to  derive  the  optical 
depth  along  the  path  within  the  ith  homogeneous  layer  as 


rv  (si+l,  si) 


A 


T  . 
V  l 


p»  <T..T  .) 


i  -  y. 


=  S(T  ) 


WV  1  -exp(-c2i;o/Ta)  Vi''! 


(18) 


The  notation  we  have  adopted  here  is  that  the  subscript  i  on  each  quantity  replaces 
the  independent  variable,  s,  and  implies  a  constant  value  within  the  ith  layer. 
Also,  As  =  si+1  -  Sj .  For  general  conditions,  the  probability  that  the  lower 
state  be  occupied  depends  on  the  vibrational  and  rotational  temperatures,  Tv  ’’  and 
Tpj",  for  the  state  in  question.  We  regard  all  rotational  *emperatures  as  equal  to 
the  kinetic  temperature,  however,  so,  in  general 


P*<T* 


T 


v 


) 


exp(-c2Ev”/Tv")  exp(-c2ER"/T) 
“ig*  Qv  CTv">  Q^T) 


(19) 
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where  E  "  and  E0"  are  the  vibrational  and  rotational  energies  of  the  lower  state 

V  n 

in  wavenumbers,  Tv"  and  T  are  the  vibrational  and  rotational  temperatures  des¬ 
cribing  the  lower  state,  Qv  and  Op  are  the  vibrational  and  rotational  partition 
functions,  Cg  is  the  second  radiation  constant,  and  ctj  is  the  isotopic  abundance 
expressed  as  a  fraction  of  the  total,  so  that 

£0^  =  1.  (20) 

I 

The  partition  functions  are,  of  course,  evaluated  for  the  conditions  at  hand.  The 
particular  band  vibrational  temperature,  T  ",  may  not  be  sufficient  to  determine 
Qv.  however.  We  defer  a  discussion  of  the  means  of  approximating  them  until 
Section  2.3.7. 

2.  3.  3  RADIANCE 

Division  of  the  viewing  path  into  segments  (Sj,  s.+j)  as  indicated  in  Figure  1 
does  not  alter  the  exact  nature  of  the  solution  in  Eq.  (14): 


I„(s) 


N— 1  rSi+l 

£  /  R(s")F„<s.s")ds" 

i=o  ^  s 


(21) 


The  first  approximation  is  to  let  R(s")  be  a  constant  over  each  segment,  in  accord¬ 
ance  with  our  assumption  of  homogeneous  layers.  Then 


Ij/(s) 


N-l 

£ 

i=o 


F„  <s,s”)ds" 


(22) 


However,  by  the  definitions  made  in  Eq.  (12)  and  Eq.  (2),  Fj,  is  a  perfect 
differential  equal  to 


(23) 


This  leads  to 


n.e'Ti>  <s,si+l) 

1 


exp  (-  At 


with  At^  given  by  Eq.  (18).  Moreover,  the  fact  that  the  optical  depth  along  the 
path  segments  is  additive,  so  that 


Tv  (s.s.4l> 


^  AT»j  * 

j"iJ  1  J 


leads  to  the  result 


Iit(s) 


H  fl  -  exp<-  At  )1  exp  -  13  at  . 

i=o  J  j=i+l  J 


The  only  approximations  involved  here  are  taking  R,  Fj,  ,  and  nu  to  be  constants 
within  each  layer. 

One  can  see  that  one  series  is  embedded  within  the  other  in  Eq.  (26).  It  is 
not  necessary,  however,  to  separately  evaluate  two  series  for  each  frequency. 
One  can  obtain  the  desired  sum  starting  with  i  =  0  (the  farthest  layer)  with  the 
following  algorithm: 

Define  Ej  =  exp  (  -  A  T  .) 


Calculate 


X.  =  R.[  1  -  E.l 

l  i‘  i* 


P.  =  X.  +  P.  .E. 

l  l  l-l  i 


i  =  1,2, 


Set  Iyis)  =  PN.j 

E.  represents  the  amount  by  which  a  unit  of  radiation  is  attenuated  in  passing 
completely  through  layer  i,  and  X  is  the  amount  of  radiation  from  the  ith  layer 
alone  appearing  on  the  observer's  side  of  that  layer.  The  P's  represent  the  total 
radiation  appearing  at  each  boundary.  An  alternative  but  completely  equivalent 
algorithm  is  given  by 


Define 


Calculate 


E.  =  exp < -dr,.) 
X.  =  ^11  -E.l 

«N-1  =  1 


Q.  ,  =  O.E. 

i-1  l  i 

P.  =  O.  X. 
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o 

Evaluate  Iy(s)  =  £  p- 

i=N-l  1 

The  only  difference  in  these  two  approaches  is  the  order  in  which  the  atmospheric 
layers  are  treated.  In  the  second  algorithm,  Qh  is  the  total  transmittance  from  the 
near  side  of  the  ith  layer  to  the  observer  and  P,.  is  the  contribution  at  the  observer's 
location  from  the  ith  layer  alone.  The  advantage  of  this  approach  is  that  one  can 
cut  off  the  summation  whenever  the  attenuation  becomes  severe  enough  to  negate 
contributions  from  ever  more  distant  layers.  That  is,  the  summation  need  not  be 
carried  as  far  as  i  =  0.  Obviously,  such  a  truncation  is  not  possible  in  the  first 
algorithm.  The  second  algorithm,  which  is  especially  useful  when  the  observer  is 
within  the  atmosphere  (for  example,  zenith-look)  has  been  incorporated  into  NLTE. 

2.3.4  INTEGRATED  RADIANCE 

The  quantity  which  is  the  main  objective  of  these  calculations  is  obtained  by 
integrating  the  radiance  profiles  over  frequency.  For  each  line,  one  evaluates 

oo 

I(s)  =  J  Ij,(s)dj;  (27) 

For  a  band,  NLTE  sums  the  results  over  individual  lines. 

Figure  2  gives  some  typical  single-line  radiance  profiles  for  limb  geometry, 
using  lines  from  the  fundamental  of  COg  near  15/jm.  Several  of  the  lines  are 
severely  self-absorbed  along  this  path,  which  has  a  tangent  height  of  70km.  The 
weakest  lines  mimic  Doppler  lines;  stronger  lines  decrease  monotonically  from 
the  center  but  have  much  more  pronounced  wings;  and  the  strongest  lines  have 
maxima  and  possibly  minima  away  from  the  line  center,  as  well  as  wings  where 
the  function  decreases  smoothly  and  monotonically,  but  very  slowly,  over  a  very 
large  range  of  frequencies. 

Figure  3  gives  the  vibrational  and  kinetic  temperatures  used  in  the  calcula¬ 
tion  of  these  profiles. 

For  each  line,  NLTE  evaluates  Eq.  (27)  using  an  analytical  approximation 
which  is  valid  only  when  the  path  optical  depth  is  less  than  unity  at  the  line  center. 
This  approximation  maybe  accepted  as  an  appropriate  value  for  I(s)  if  a  "thin-line" 
criterion,  described  in  Section  2.  3.  4.  2,  is  satisfied.  Otherwise,  the  integral  is 
evaluated  numerically  using  the  "thick -line"  procedure  described  in  Section 
2.  3.4.  1.  Because  of  the  heavy  computational  requirements  of  the  thick-line 
procedures,  the  program  bypasses  it  whenever  the  thin-line  approximation  is 
sufficiently  accurate. 
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RADIANCE  ,  photons /(sec -cm2 -cm'1- ster) 


v-vo  (cm-1) 


Figure  2.  Radiance  Profiles  of  Four  Lines  of  the  R  Branch 
of  the  CO2  (^2)  Fundamental,  Using  Limb  Geometry  and  a 
Tangent  Height  of  70  km.  The  dotted  line  is  the  R2  profile 
assuming  a  Doppler  rather  than  Voigt  lineshape.  The  arrow 
indicates  the  Doppler  linewidth  at  70  km. 


2.3.  4.1  Thick-Line  Algorithm 

When  the  thin-line  approximation  is  unacceptable,  Eq.  (27)  is  evaluated 
numerically  over  a  range  between  vQ  and  a  certain  cutoff  frequency  i/c<  and  the 
contribution  from  the  region  between  VQ  and  infinity  is  approximated  by  an  anal¬ 
ytical  expression.  Since  lv  is  symmetrical  about  vq,  the  desired  value  for  each 
line  is  twice  the  sum  of  these  two  quantities. 
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Altitude  (km) 


140 


Temperature  (K) 

Figure  3.  Kinetic  and  Vibrational  Temperature  Profiles  Used  to  Calculate  the 
Curves  in  Figure  2 


The  numerical  integration  procedure  was  designed  to  use  the  minimum 
number  of  integration  points  to  obtain  the  desired  accuracy.  To  accomodate  the 
great  variety  of  possible  integrands,  a  semi-adaptive  scheme  is  used.  The 
region  v  to  Pc  is  divided  into  sections,  or  panels,  and  the  contribution  to  the 
total  integral  from  each  panel  is  evaluated  separately  using  Gauss-Legendre 
quadrature.  The  panels  are  taken  in  order,  starting  at  the  line  center  with  a 
fixed  panel -width.  At  a  certain  point  I'g,  beyond  which  the  radiance  profile  is 
determined  to  be  "smooth, '  the  panels  are  allowed  to  increase  in  width  so  as  to 
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cut  down  on  the  total  number  of  integration  points.  The  cutoff  point  v  and  the 
panel -expansion  point  t'g  both  depend  on  the  radiance  profile  being  considered, 
and  they  are  determined  as  the  integration  progresses  from  panel  to  panel. 

Each  panel  is  integrated  with  the  same  fixed  number  of  points.  The  default 
is  four  points,  but  two  points  per  panel  often  give  excellent  results  and  of  course 
require  less  computation. 

The  initial  panel- width  is  one  "standard  Doppler  width"  (SDV. ).  This  is 
defined  to  be  the  half  width  at  half  maximum  of  a  Doppler  line  with  a  frequency 
equal  to  that  at  the  center  of  the  band  in  question.  The  kinetic  temperature  used 
to  define  SDYV  is  the  lowest  encountered  in  the  atmospheric  profile. 

(1)  Numerical  Integration 

The  application  of  Gauss  quadrature  over  panels  of  fixed  width  is  a  straight¬ 
forward  exercise.  In  our  case,  once  the  integration  has  progressed  into  the 
smooth  wing  of  the  radiance  profile--that  is,  past  all  extrema  which  might  appear 
in  I^'-the  panel  widths  are  doubled  in  each  successive  panel.  The  condition 
used  to  establish  that  the  function  is  smooth  by  this  definition  is  that  T v  be  less 
than  0,  5  at  the  end  of  the  last  panel  previously  considered.  That  is,  J'g  is  chosen 
to  be  the  end  of  the  panel  within  which  the  path  optical  depth  first  drops  below 
one-half. 

The  rationale  behind  this  criterion  for  smoothness  is  that,  for  a  fixed  number 
of  points,  the  absolute  accuracy  of  any  numerical  integration  algorithm  is  gener¬ 
ally  worst  in  intervals  within  which  the  integrand  has  maxima  and  minima.  The 
validity  of  the  corresponding  choice  for  t'g  is  demonstrated  in  the  following 
manner.  One  rewrites  Eq.  (14)  as 


Ij,  (s)  =  <  R  >  [  1  -  exp  (  -  Tj,(s,  s') )  1 


by  making  use  of  the  definition 


<  R  > 


/ 


s 

R(s)Fj,  (s,  s")ds"  / 


s 


s' 


(28) 


(29) 


and  the  integrability  of  Fj,  (s,  s'),  as  in  Eq.  (23).  <  R  >  is  a  function  of  V.  One 
sees  that  Ip  is  the  product  of  a  weighted  average  of  R  and  the  absorptivity  over 
the  entire  path.  Bullitt  et  al  show  that  <R  >  asymptotically  approaches  a  limit¬ 
ing  value,  <R>„,  for  larg ellt-V  I,  and  that  the  departure  from  this  limiting 
value  is  very  modest  whenever  Tv  <  1,  On  the  other  hand,  the  absorptivity 
rapidly  departs  from  its  limiting  value  of  unity  only  when  Tp  >1.  Moreover, 
because  of  its  functional  form  and  because  Tv  decreases  monotonically  with 
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increasing  v,  the  absorptivity  factor  cannot  by  itself  induce  extrema  inthe  radi¬ 
ance  profile.  One  can  then  say  that  the  functional  form  of  the  thick-line  radiance 
profile^  dominated  by  <R>  near  the  line-center  and  by  the  absorptivity  in  the 
wings,  and  that  the  extrema  in  Ij/  must  therefore  be  limited  to  the  frequency  range 
for  which  Tj,  >  1 .  To  be  conservative,  we  take  Tv  ~  0.  5  as  the  critei  ion  for  deter¬ 
mining  V-q  ;  in  fact,  we  find  that  the  outermost  maxima  in  Ip  usually  occur  at 
frequencies  for  which  2  <  tv  <  5. 

(2)  Analytical  Approximation  After  Cutoff 

We  cut  off  the  numerical  integration  at  Vc  only  when  it  has  passed  into  the 
region  T„  <<  1.  The  contribution  from  this  "tail"  of  the  radiance  profile  is 


T  (  Vc.  s) 


(s)dl> 


(30) 


From  Eq.  (11),  this  can  be  written  as 


T(l/c.s) 


nu(s") 


fjz  (s")d*> 


ds". 


(31) 


If  the  lineshape  is  a  Voigt  function,  its  functional  form  in  the  tail  can  be  approxi¬ 
mated  by  a  Lorentz  function,  an  asymptotic  expansion  of  the  Voigt  integral,  or 
some  other  means  (see  Section  2.  3.  5).  One  can  then  evaluate  the  V -integral  in 
Eq.  (31),  with  the  result  that 


T(Vb> 


e 


nu(s',)0,L 


(s")ds' 


(32) 


where  is  the  Lorentz  width  due  to  the  collision-broadening  component  of  fv. 
In  NLTE,  of  course,  the  integral  is  a  sum  over  homogeneous  layers.  When  this 
conversion  is  made  and  the  Einstein  absorption  coefficient  is  used  to  replace  A, 
with  Eq.  (10),  the  result  is 


FT,  ,  \  2  1 

T<  vQ.s)  =  — 


C  O  1 


kci/2  n  (s.)l  I"  ^Bt  1  a  (s.Ms. 
L  o  gu  u  1  J  L  c  Uj  L  1  1 


(33) 


After  substituting  Eqs.  (4)  and  (13)  for  the  first  quantity  in  square  brackets  and 
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Eqs.  (17)  and  (18)  for  the  second,  most  factors  cancel,  and  one  is  left  with  a 
result  expressed  in  simple  terms: 


T(rc.s)  - 


(34) 


In  this  equation,  the  term  in  square  brackets  and  the  other  factors  in  the  sum  are 
independent  of  frequency  [since,  according  to  Eq.  (18),  the  frequency-dependence 
of  the  optical  depth  is  entirely  contained  in  the  lineshape].  The  sum  therefore 
needs  to  be  evaluated  only  once  for  each  line,  say  at  It  is  then  a  simple  matter, 
after  the  completion  of  the  integration  of  each  successive  panel,  to  determine  the 
approximate  residual  contribution  from  the  entire  region  beyond  that  panel. 

The  more  panels  that  are  taken,  the  more  accurate  this  residual  term  will  be. 
The  difficult  part  is  determining  just  how  accurate  it  is.  Our  procedure  for 
determining  v which  is  likely  to  be  refined  in  the  future,  is  based  on  empirical 
tests  which  show  that  if  a  quantity  K  ,  defined  as 


k  z 


6  e  I„/Tt/„ 

c  v  c 


(35) 


is  greater  than  T(rc,s),  the  fractional  error  introduced  in  I(s)  by  cutting  off  the 
numerical  integration  and  adding  T  to  the  previous  result  will  be  less  than  e  . 

In  Eq.  (35),  I  is  the  cumulative  integrated  radiance  in  the  panels  treated  so  far, 
fj,  is  the  optical  depth  for  the  path  at  the  end  of  the  last  panel,  and  e  is  the 
desired  accuracy  of  the  integrated  radiance  in  the  line,  expressed  as  a  fractional 
error.  The  optically  thickest  path  is  used  to  evaluate  K  .  This  approximation 
is  accurate  enough  to  correctly  evaluate  the  integral  over  a  range  contributing 
several  percent  to  the  total  result  in  typical  cases,  and  thus  can  eliminate  numer¬ 
ical  treatment  of  many  panels  in  the  far  wing  of  the  radiance  profile. 

If  a  Doppler,  rather  than  Voigt,  lineshape  is  selected,  a  different  residual 
term  is  used  in  place  of  Eq.  (34), 

In  order  to  evaluate  Eq.  (34),  the  collision -broadening  linewidth  aT  (s.)  must 
be  computed  for  all  relevant  layers.  For  each  line,  the  4FGL  database  contains 
a  standard  collision  linewidth,  aQ.  calculated  or  measured  for  STP.  This  quan¬ 
tity  is  corrected  for  temperature  and  pressure  to  yield 


x 


(36) 
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where  and  T.  are  the  pressure  (in  atmospheres)  and  the  kinetic  temperature  in 
the  ith  layer,  respectively.  The  exponent,  x,  to  which  the  temperature  ratio  is 
raised,  is  equal  to  0.  50  for  all  molecules  except  CO2,  for  which  a  value  of  0.  75 
is  used. 

2.  3.  4.  2  Thin- Line  Approximation 

In  the  event  that  the  path  optical  depth  at  the  line  center  (and  hence  at  all  fre¬ 
quencies)  is  much  less  than  unity,  the  integrated  radiance  can  be  computed 
analytically.  In  effect,  one  ignores  absorption  along  the  path  and  integrates  the 
volume  emission  rate  for  the  whole  line  along  the  path.  If  one  takes  Eq,  (11)  and 
sets  the  exponential  equal  to  unity,  only  f  ^  contains  a  ^-dependence.  Upon 
inserting  the  result  into  Eq,  (27),  interchanging  the  order  of  integration,  and 
using  Eq.  (5),  one  quickly  arrives  at 

s 

I(s)  =  ^  J n  (s")ds"  (37) 

s' 

After  this  integral  is  converted  into  a  sum  over  homogeneous  layers,  one  follows 
steps  which  are  almost  identical  to  those  used  to  derive  Eq.  (34)  from  Eq,  (32) 
to  obtain 


I(s) 


f 


vi 


J 


(38) 


This  sum  can  be  evaluated  in  a  single  loop  through  the  atmosphere  and  therefore 
requires  much  less  computational  effort  than  the  numerical  integration. 

The  criterion  that  we  use  to  determine  whether  Eq.  (38)  is  an  acceptable 
approximation  to  Eq.  (27)  is  based  on  the  value  of  the  total  path  optical  depth  at 
the  line  center.  For  lines  with 


(s,  s')  <  3  e 

o 


(39) 


NLTE  bypasses  the  thick-line  algorithm.  c  is  the  quantity  introduced  below 
Eq.  (35). 

2.3,4.  3  Accuracy 

The  NLTE  algorithm  has  been  designed  to  perform  a  detailed  calculation  and 
produce  accurate  results  in  a  reasonable  amount  of  computation  time.  The 
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accuracy  of  the  calculation  depends  on  the  correctness  of  the  input  data,  the 
physical  approximations  built  into  the  algorithm,  and  the  mathematical  approxima¬ 
tions  used  to  implement  it. 

The  greatest  source  of  error  in  simulating  a  particular  experiment  will 
generally  be  due  to  uncertainties  in  the  quantities  contained  in  the  atmospheric 
profile.  For  example,  errors  of  a  few  degrees  in  a  vibrational  temperature  pro¬ 
file  can  change  the  volume  emission  rate  by  significant  amounts,  especially  for 
higher-energy  transitions,  with  an  ultimate  effect  that  depends  on  the  thickness  of 
the  lines  in  question  and  the  altitudes  at  which  the  errors  are  most  pronounced. 
Since  one  cannot  anticipate  the  magnitude  of  errors  of  this  sort,  we  focus  on  in¬ 
accuracies  that  could  be  induced  by  the  algorithm. 

(1)  Layering  Approximation 

The  principal  physical  approximation  incorporated  into  this  work  is,  of  course, 
that  of  the  homogeneous  atmospheric  layers.  The  magnitude  of  the  errors  induced 
depends  on  the  (geometrical)  thickness  of  the  layers  used,  the  gradients  in  temp¬ 
erature  and  number  density,  the  degree  of  self-absorption  along  the  path,  and 
the  path  geometry  itself.  We  estimate  that  with  1-km  atmospheric  layers,  total 
errors  in  the  integrated  radiance  will  be  less  than  2  percent  for  any  single  line 
for  most  realistic  atmospheric  profiles.  For  bands  containing  both  thick  and  thin 
lines,  the  error  is  likely  to  be  much  less  than  this.  In  both  cases,  the  error  will 
be  in  the  direction  of  predicting  too  little  radiance. 

These  conclusions  are  based  on  some  hand  calculations  and  also  on  the  use  of 
a  contrived  atmospheric  profile.  Since  the  number  densities  have  a  nonzero 
gradient  at  all  altitudes  and  change  by  orders  of  magnitude  over  the  range  of  the 
viewing  paths,  one's  attention  is  first  drawn  to  the  approximation  represented  by 
Eq.  (15b).  Suppose  that  all  number  densities  can  be  characterized  by  a  local 
scale  height  everywhere --that  is,  these  functions  are  truly  exponential  within  each 
layer.  Then,  assuming  "correct"  values  p  (s^)  and  p(si+1),  Eq.  (15b)  gives  the 
actual  path -average  number  density  only  for  zenith  geometry.  For  limb  geometry, 
greater  distances  are  encountered  in  the  lower  part  of  each  laje  r- -particularly 
near  the  tangent  point --and  this  formula  underestimates  the  path  average  by  a 
small  amount,  Asa  result,  both  the  optical  depth  and  the  volume  emission  rate 
are  a  little  too  small.  From  Eq.  (11),  one  can  see  that,  in  general,  these  two 
errors  tend  to  cancel,  but  the  degree  of  cancellation  depends  on  the  optical  depth. 
Intuitively,  one  suspects  that  the  worst-case  fractional  error  results  for  thin  lines 
because  the  attenuation  term,  which  in  general  compensates  for  the  understated 
volume  emission  rate,  is  small. 

To  verify  these  conclusions,  we  used  a  contrived  atmospheric  configuration 
for  which  the  correct  path  optical  depth  and  the  radiance,  as  well  as  the  values 
that  would  be  obt  ained  by  our  algorithm,  could  be  calculated  analytically.  The 
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assumptions  were  that  of  an  equilibrium  isothermal  atmosphere,  an  exponential 
emitter  density,  and  a  Doppler  lineshape.  The  correct  integrated  radiance  for  a 
single  line  under  these  conditions  is 


I(s) 


exp (-r„  (s,  s')  )  ]dv 


(40) 


and  the  two  limiting  values  for  I(s)  are 


T  <  <  1 
^O 


(41a) 


1<s>  ~  v/Tn->o  r%»l  Hlb) 

where  Tv  is  the  path  optical  depth  at  the  line  center.  Eq.  (41b)  results  from  an 
O  8 

asymptotic  expansion  of  the  integrated  absorptivity  and  is  valid  for  the  Doppler 
lineshape.  The  Doppler  halfwidth,  oip,  is  given  in  Eq,  (44)  below. 

With  our  simplifications,  R  is  independent  of  altitude,  and  the  NLTE  result 
for  I(s)  is  in  error  only  because  of  the  error  in  the  optical  depth.  The  value  of  the 
optical  depth  obtained  by  NLTE,  T v0>  differs  from  the  correct  value  by  a  small 
amount: 


T 

V 


o 


r  (1-8) 

v  „ 


(42) 


The  error  term,  6,  depends  on  the  assumed  scale  height  and  is  calculated  analy¬ 
tically.  Taking  1km  for  the  layer  thickness  and  5  km  for  the  scale  height,  6  is 
0.019  for  limb  geometry  and  0.002  for  zenith  geometry:  for  an  8-km  scale  height, 
the  values  are  0.010  and  0.0007,  respectively.  From  Eq.  (41a),  one  can  see  that 
the  worst-case  single-line  fractional  error  in  I(s)  is  just  8  and  is  associated  with 
thin  lines  and  limb  geometry.  For  very  thick  lines,  the  fractional  error  is  1/2  8  / 
l  n  (  Tv  )  and  is  thus  much  smaller.  Since  most  bands  are  dominated  by  the  thick¬ 
line  contributions,  it  follows  that  worst -case  fractional  errors  in  the  band  radiance 


8.  Van  Trigt,  C.  (1968)  Asymptotic  expansions  of  the  integrated  absorptance  for 
simple  spectral  lines  and  lines  with  hyperfine  structure  and  isotope  shifts, 
J.  Opt.  Soc,  Am.  58:669. 
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due  to  the  layering  scheme  are  much  less  than  <5,  which  is  to  say,  for  1-km  layers 
and  typical  atmospheric  profiles,  less  than  1  percent. 

These  estimates,  of  course,  ignore  the  effects  of  temperature  gradients  on 
the  error  induced  by  the  layering  approximation,  but  we  believe  that  they  are  unim¬ 
portant.  Consider  the  approximation  of  the  upper  state  vibrational  temperature, 

T  ,  by  Eq.  (15a).  This  quantity  determines  the  volume  emission  rate  and  thus  af¬ 
fects  the  radiance  calculation.  One  can  see  that,  in  regions  where  Ty  has  a  sharp 
maximum  Eq.  (15a)  understates  it.  (For  limb-look,  however,  the  path-average 
temperature  is  different  from  the  layer-average,  as  before. )  The  error  will  be  a 
factor  of  approximately  exp  ^EA/T^),  where  E  is  the  vibrational  energy  of  the 
state  and  A  is  the  error  in  T  .  A  change  in  the  vibrational  temperature  gradient 
equal  to  0.  5  K/krn^,  which  is  quite  steep,  gives  a  value  of  A  on  the  order  of  0. 1  K 
for  1-km  layers  and  0.  5  K  for  2-km  layers.  For  1-km  layers  and  a  2.  7f/m  tran¬ 
sition,  the  volume  emission  rate  would  err  by,  at  worst,  1  percent  in  a  few  layers 
near  the  extremum.  (For  a  lower -energy  transition,  the  error  would  be  much 
less.  )  In  the  very  worst  case,  the  extremum  is  a  sharp  maximum  near  the  tangent 
point,  and  there  is  little  attenuation  at  higher  altitudes.  In  this  case,  the  error 
adds  to  that  discussed  earlier;  under  most  circumstances,  however,  it  is  consid¬ 
erably  smaller,  and  the  general  estimates  given  earlier  remain  valid. 

In  extreme  cases,  inaccuracies  due  to  the  layering  approximation  can,  of 
course,  be  reduced  by  using  thinner  layers,  especially  at  the  lowest  levels. 

(2)  High -Altitude  Cutoff 

A  second  physical  approximation  is  that  all  effects  due  to  layers  above  a  cer¬ 
tain  altitude  can  be  ignored.  For  an  arbitrary  atmospheric  profile  and  arbitrary 
line  strengths,  it  is  difficult  to  say,  a  priori,  how  many  layers  are  needed.  Gen¬ 
erally,  50  1-km  layers  are  adequate  for  bands  dominated  by  thick  lines. 

One  realization  resulting  from  the  tests  we  performed  on  NLTE  is  that,  for 
lines  quite  far  from  the  band  center,  the  optical  depth  per  layer  may  increase  with 
increasing  altitude,  rather  than  the  reverse,  if  the  calculations  extend  into  the 
lower  thermosphere.  This  comes  about  because  the  elevated  temperatures  in  the 
upper  layers  increase  the  lower  rotational-state  populations  dramatically  for  such 
lines.  This  more  than  offsets  the  effect  of  decreasing  total  number  density,  and  it 
means  that  many  layers  may  be  necessary  if  the  precise  contributions  from  such 
lines  are  needed.  Because  these  lines  are  weak,  their  contribution  to  the  radiance 
from  a  whole  band  is  almost  always  negligible. 

One  can,  of  course,  extend  one's  model  atmosphere  as  high  as  is  necessary 
to  eliminate  any  possible  error  from  this  source. 

(3)  Overlap 

The  third  physical  approximation  inherent  in  NLTE  is  that  the  lines  are 
independent  of  each  other--that  is,  that  overlap  is  not  a  relevant  consideration. 


For  the  bands  in  the  high-altitude  non-LTE  regions  we  usually  consider,  the  lines 
are  spaced  sufficiently  far  apart--even  in  the  Q  branches--so  that  the  numerical 
integration  regions  do  not,  in  fact,  run  into  each  other.  Since  the  numerical 
integration  is  cut  off  only  when  Tv  <<  1,  as  described  in  Section  (2),  the  error 
induced  by  ignoring  overlap  is  completely  negligible  for  these  cases.  Of  course, 
for  very  strong  closely  spaced  lines  and  low-altitude  viewing  paths,  overlap  may 
be  a  relevant  consideration.  We  have  made  no  quantitative  estimates  of  its  effect 
on  the  integrated  radiance,  but  it  is  clear  that  the  error  would  be  in  the  direction 
of  predicting  too  much  radiance. 

(4)  Mathematical  Approximations 

Several  mathematical  approximations  employed  in  NLTE  have  been  described 
earlier.  They  include  use  of  numerical  integration  to  evaluate  Eq.  (27)  [(1)  in  Sec¬ 
tion  2.  3.  4.  l],  the  thin-line  approximation  (Section  2.  3.  4.  2),  and  the  tail  cutoff  ap¬ 
proximation  [(2)  in  Section  2.  3.4.  l].  Also,  the  use  of  the  Voigt  function  (Section 
2,3.5)  implies  mathematical  approximations  as  well  as  the  physical  assumption 
that  that  function  is  appropriate  for  the  absorption  cross-section.  Last  of  all,  ap¬ 
proximations  used  to  calculate  the  partition  functions  are  discussed  in  Section  2.  3.  7. 

In  the  case  of  the  numerical  integration,  one  can  only  check  the  accuracy  by 
comparing  results  using  different  numbers  of  integration  points  per  panel.  In  all 
cases  we  have  tested,  the  difference  between  using  four  points  and  using  eight 
points  is  on  the  order  of  0.  01  percent  or  less,  and  thus  negligible. 

Two  other  approximations  are  scaled  to  the  nominal  desired  accuracy,  e  ,  and 
thus  can  be  made  as  small  as  necessary.  The  thin-line  approximation  produces  a 
worst -case  fractional  error  of  almost  exactly  e  .  That  is,  if  the  line  falls  just 
below  the  thin-line  threshold,  the  error  is  e  times  the  computed  intensity  and  is 
positive  (too  much  radiance).  Weaker  lines  produce  smaller  errors,  so  using  the 
default  value  e  =  0.01,  the  error  induced  in  the  integrated  band  radiance  by  this 
approximation  alone  will  be  less  than  1  percent  even  if  there  are  few  contributions 
from  thick  lines  to  be  added  in. 

In  a  single-line  run,  NLTE  ignores  the  thin-line  criterion  and  calculates  the 
radiance  numerically  even  for  very  weak  lines. 

Similar  considerations  apply  to  the  analytical  tail  approximation.  The  worst- 
case  error  for  a  single  line  is  approximately  £  ,  but  the  average  error  is  con¬ 
siderably  less,  and  the  resultant  effect  on  the  band  radiance  is  thus  quite  small. 

The  Voigt  algorithm  is  discussed  in  the  next  section.  It  is  so  accurate  that  it 
does  not  contribute  to  the  error  in  I(s).  The  partition  function  approximations  also 
contribute  a  negligible  amount  to  the  final  error. 

(5)  Summary 

The  algorithm  has  been  refined  to  the  point  where  the  uncertainties  in  the 
atmospheric  profile  used  as  input  must  be  regarded  as  the  dominant  source  of 
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error  in  the  integrated  radiance  calculated  by  NLTE.  The  only  exceptions  to  this 
would  come  if  a  very  coarse  altitude  grid  were  used,  or  possibly  if  extremely 
disturbed  atmospheric  conditions  (for  which  we  have  not  checked  our  approxima¬ 
tions)  were  assumed. 

2.3.5  VOIGT  ALGORITHM 

It  is  very  important  to  account  for  collision-broadening  in  the  absorption 
cross  section,  even  in  high-altitude  regions  where  collisions  are  relatively 
infrequent  and  the  ratio  of  the  collision  linewidth  to  the  Doppler  linewidth  is  very 
small.  This  is  true  because  many  lines  may  be  severely  self-absorbed  in  the 
line  center  even  for  paths  traversing  only  very  high-altitude  regions.  In  such 
cases,  the  contribution  in  the  wings,  where  the  collision  component  dominates, 
constitutes  a  large  part  of  the  total  radiance  profile.  It  is,  therefore,  necessary 
to  have  an  accurate  representation  of  the  lineshape  in  the  wings,  which  is  to  say 
that  the  Voigt  rather  than  Doppler  profile  must  be  used.  Errors  of  50  percent  to 
100  percent  can  easily  be  made  by  neglecting  collision-broadening. 

The  Voigt  function,  which  is  the  convolution  of  a  Lorentz  function  and  a 
Gaussian,  can  be  specified  by  two  parameters:  the  linewidth  ratio,  y,  and  the 
normalized  frequency,  x: 

r -  «i 

y  =  Jin  2  ~  (43a) 

“D 


, -  v-  u 

X  =  Jin  2  °  (43b) 

aD 

otj  and  cty  are  the  collision-broadened  and  Doppler  linewidths,  respectively,  and 
are  functions  of  altitude,  oij  is  given  in  Eq.  (36)  and  is 


where  M  is  the  mass  of  the  molecule,  k  is  Boltzmann's  constant,  and  c  is  the 
speed  of  light. 

We  originally  used  a  very  accurate  Voigt  routine  due  to  Hvbicki'J  (VWERF), 

9.  A  method  due  to  Evbicki,  described  in  Emission,  Absorption,  and  Transfer  of 
Radiation  in  Heated  Atmospheres  (19727,  B.  II.  Armstrong  and  R.W. 
Nichols,  Pergamon,  New  York. 


which  correctly  gives  eight  significant  figures  over  the  entire  x-v  plane.  An 
algorithm  due  to  Pierluissi  et  al10  (ZVOIGT,  which  pieces  together  three  form¬ 
ulas  to  cover  the  plane)  runs  considerably  faster  but  is  inaccurate  in  the  near 
wings  (x  ~  3)  for  an  important  range  of  values  of  v.  To  speed  our  calculations, 
we  rewrote  Pierluissi's  algorithm  so  that  it  gives  results  which  are  accurate  to  at 
least  0.  1  percent  in  the  line  center  (x  <  1.25)  and  0.  5  percent  everywhere  else 

_  g 

except  where  y  <  10  .  To  accomplish  this,  we  checked  the  accuracy  and  speed 

of  routines  using  different  representations  of  the  Voigt  function  throughout  the 
x-y  plane.  We  then  pieced  them  together  in  such  a  way  that  the  fastest  routines 
occupy  as  much  of  the  plane  as  possible,  and  the  calls  to  the  routines  and  the 
logical  branches  to  the  different  regions  use  as  little  compute  time  as  possible.  A 
detailed  description  of  our  routine,  ZVGTC,  will  be  given  elsewhere;  in  this 
section,  we  mentioned  only  a  few  points  which  are  relevant  for  NJ.TK. 

In  the  previous  paragraph,  we  indicated  the  minimum  accuracy  criterion  for 
ZVGTC.  In  fact,  it  is  only  near  the  boundaries  between  regions  where  these 
limits  are  approached.  Over  much  of  the  plane,  especially  in  the  line  center  with 
y  >  0.001,  its  accuracy  is  six  figures  or  better.  We  have  tested  NLTE  with  both 
VWERF  and  ZVGTC  and  have  found  no  differences  in  the  final  results  for  the 
radiance.  The  advantage  of  ZVGTC  is  that  it  runs  in  less  than  one  third  of  the 
time  required  by  VWERF. 

Figure  4  shows  the  division  of  the  x-y  plane  into  the  four  regions  used  in 
ZVGTC.  Region  1  is  treated  using  Pierluissi's  series  expansion10  modified  to 
deal  with  an  extended  range  in  x.  Regions  2  and  3  use  6-  and  2-point  Gauss-Her- 
mite  quadrature,  respectively.  These  formulas  involve  only  rational  functions 
and  are  very  fast.  For  thick  lines,  a  large  fraction  of  the  function  evaluations  fall 
in  these  regions.  In  Region  4,  we  substitute  the  Dopple  profile  for  the  actual  Voigt 
function,  in  the  interest  of  speed. 

The  arithmetic  used  for  Regions  2-4  is  fast  enough  so  that  branching  operations 
encountered  in  the  subroutine  actually  begin  to  compete  with  the  function  evalua¬ 
tions  for  computation  time.  The  peculiar  shape  of  Region  1  results  from  a  need 
to  avoid  transcendental  function  evaluations  in  the  branches.  For  similar  reasons, 
we  avoid  repeated  entries  to  the  routine  by  evaluating  the  Voigt  function  for  many 


10.  Pierluissi,  J.H.,  Vanderwood,  P.C.,  and  Gomez,  R.B.  (1974)  Fast  calcula- 

tional  algorithm  for  the  Voigt  profile,  J.  Quant.  Spectrosc,  and  Rad. 
Transfer  18:555. 

11.  Kalshoven,  J.E.,  Jr.,  and  Walden,  H.  (1983)  l.aser  bandwidth  and  frequency 

stability  effects  on  remote  sensing  of  atmospheric  pressure  as  applied  to  a 
horizontal  path  measurement,  paper  presented  at  topical  meeting  on  Optical 
Techniques  for  Remote  Probing  of  the  Atmosphere,  Incline  t  illage,  Xev. 
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layers  all  at  once,  using  a  loop  within  the  subroutine  rather  than  one  in  the  main 
program. 


2  3  4  5  6 


X 


Figure  4.  Segments  of  the  x-y  Plane  Allocated  by  the 
Voigt  Routine  ZVGTC.  In  Region  1,  the  Voigt  °unction 
is  evaluated  using  the  ZVOIGT  series.  ^  In  Regions  2 
and  3,  6-  and  2-point  Gauss-Hermite  quadrature  are 
used,  respectively.  In  Region  4,  the  Doppler  profile  is 
substituted 


2.3.6  SYNTHETIC  SPECTRUM 

To  simulate  the  imperfect  resolution  of  a  real  detector,  NI.TE  evaluates  a 
simple  sum  that  approximates  the  convolution  of  the  calculated  spectral  radiance 
with  an  instrumental  scanning  function. 

In  general,  if  I  (  V  -  vq)  represents  the  radiance  profile  of  the  jth  line  at 
wavenumber  v,  and  g(  v  -v')  is  the  scanning  function--the  pattern  through  which 
the  intensity  at  f'  is  redistributed  to  v  by  the  instrument--the  contribution  to  the 
observed  spectrum  due  to  this  line  is 
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(45) 


g  must  be  normalized  to  unity.  Observe  that  our  notation  is  slightly  altered: 

The  quantity  in  the  integrand  is  what  we  previously  called  Iy(s). 

In  NLTE,  calculation  of  this  synthetic  spectrum  is  simplified  by  two  assump¬ 
tions.  First,  we  take  the  instrument  function  to  be  triangular  in  shape: 

g  (  v  -  Vq)  =  [A  -  |  V  -  rj]  M2  |  v  -  Vq  |  S  4  (46a) 

g  (V  -  VQ)  =  0  I  v  -  VQ  I  >  A  (46b) 

where  4  is,  by  definition,  the  full  width  at  half  maximum  of  the  function.  Second, 
we  assume  that  g  is  much  broader  than  the  width  of  the  individual-line  radiance 
profiles,  and  that  the  latter  may  therefore  be  approximated  by  delta  functions: 


I.  (  v  -  v  )  ~1 .  6{v  -  v  )  (47) 
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where  L  is  the  integrated  radiance  determined  by  NI.TE.  The  convolution  is  then 
trivial,  and  the  spectral  radiance  is  given  by  a  sum  over  lines: 
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By  requiring  the  intensity  to  be  "located''  at  each  line's  center,  this  procedure, 
of  course,  obscures  any  details  of  the  individual  radiance  profiles. 


2.3.7  PARTITION  FUNCTIONS 


In  order  to  calculate  the  optical  depth  in  the  various  layers  via  Eqs.  (18)  and 
(19),  one  uses  the  vibrational  and  rotational  partition  functions,  Qv  and  QR  .  It 
happens  that  these  appear  only  in  ratios:  the  partition  function  for  conditions 
pertinent  to  a  particular  layer  divided  by  the  partition  function  for  ETE  conditions 
at  the  standard  temperature,  T  s  . 

We  take  the  vibrational  partition  function  to  be  similar  to  the  harmonic-oscil¬ 
lator  partition  function, 

Qv  (T  v>  ~  [1  -  exp  (-c2Eq/T  v>]  D  (49) 

where  Eq  is  the  energy  of  the  oscillator  fundamental,  Ty  is  the  vibrational  temp¬ 
erature,  and  D  is  the  degeneracy  of  the  excited  states.  For  diatomic  molecules, 
this  is  an  approximation  in  that  it  assumes  equally  spaced  levels  and  a  single 
vibrational  temperature  giving  the  populations  of  all  the  states.  For  triatomic 
molecules,  we  assume  that  Eq  refers  to  the  lowest-lying  ladder  of  states,  and 
thus  make  the  additional  approximation  of  not  counting  the  states  in  the  other 
ladders.  (For  example,  in  CO2  we  take  EQ  =  667.379  cm-1  and  D  =  2,  corres¬ 
ponding  to  the  fundamental,  and  thereby  neglect  the  states,  the  V3  states, 
and  the  combination  states.  A  better  approximation  in  this  case  would  be  to  use 
the  product  of  three  such  functions,  but  this  still  neglects  the  combination  states. 

In  fact,  these  approximations  are  excellent  ones.  At  normal  temperatures, 
neglect  of  the  v j  and  v 3  states  reduces  Qv  by  about  0.  1  percent  and  0.  002  percent, 
respectively,  for  CO2.  The  differences  due  to  anharmonicity  are  similarly  small. 
The  fact  that  Qv  appears  as  a  ratio  further  dilutes  the  effect  of  these  errors.  The 
uncertainties  associated  with  any  vibrational  temperature  profile  clearly  domi¬ 
nate  the  errors  caused  by  these  approximations. 

For  CH  ,,  the  energy  levels  are  more  complicated,  but  Ov  can  be  approxi- 
mated  to  about  1  percent  by  taking  empirical  values  of  1370  cm  and  5  for  E 
and  D,  respectively. 

For  02.  several  transitions  in  the  near  infrared  are  electronic  transitions, 
but  NI.TE  treats  them  as  if  they  were  vibrational  transitions.  In  this  case,  Eq. 
(49)  is,  of  course,  wrong  in  principal.  The  levels  are  so  high-lving,  however, 
that  Qv  is  practically  identical  to  unity,  and,  in  practice,  Eq.  (49)  is  perfectly 
adequate. 


12.  Bullitt,  M.K.  Private  Communication. 
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The  temperature  dependence  of  the  rotational  partition  function  is  approximated 


by 


Qr(t>  Mi  ,,01 

«Hfrs)  =  \Ts/ 

where  the  exponent,  j,  is  unitv  for  linear  molecules,  and  1,  5  for  nonlinear  mole- 

.  2 
cules. 


3.  I  SE  OF  THE  PROGRAM 
3.1  Introduction 

NI.TE  is  written  in  FORTRAN'77.  It  requires  about  106000  (decimal)  words 
to  compile  and  load  on  the  CYBER  750  at  AFGI..  A  high-optimization  option 
should  be  selected  at  compile  time  (OPT  =2  on  the  FTN5  compiler)  if  a  full  band 
is  being  run.  Each  run  requires  about  2  seconds  to  perform  all  the  initialization 
steps,  and  then  a  fraction  of  a  second  for  each  line  considered.  The  exact  amount 
of  time  required,  of  course,  depends  on  the  amount  of  computation  to  be  done-- 
that  is,  on  the  optical  depth  of  the  line,  the  number  of  atmospheric  layers,  the 
number  of  integration  points  selected,  and  so  on--but  it  is  typically  about  0.25 
sec.  per  line  on  the  CYBER. 

NI.TE  requires  information  from  three  data  files,  whicli  are  associated  with 
units  1,  2,  and  3.  These  files  contain  general  program  directives,  an  atmospheric 
profile,  and  a  coded  A  KG I.  line  file,  respectively.  We  reiterate  that  program 
NI.TE,  in  its  stand-alone  form,  deals  with  single  vibrational  bands.  As  such,  the 
program  input  on  units  1  and  2  is  specific  to  the  band  in  question.  (In  fact,  unit  1 
identifies  the  band.  )  To  obtain  the  total  radiance  from  several  overlapping  bands, 
it  is  necessary  to  run  the  program  several  times.  On  unit  ?,  data  pertaining  to 
bands  other  than  the  one  of  interest  are  ignored. 

NI.TE  prints  output  on  units  4,  5,  and  6,  with  unit  4  being  used  for  the  princi¬ 
pal  results  and  units  5  and  6  containing  supplementary  and  diagnostic  information. 

If  a  synthetic  spectrum  is  calculated--that  is,  if  an  instrumental  scanning  function 
is  spe  eified  (see  Section  2.  3.  6),  NI.TE  writes  the  spectral  radiance  to  unit  7  as 
well  as  to  unit  4.  To  obtain  the  total  spectral  radiance  of  overlapping  bands,  the 
program  must  be  run  once  for  each  band.  On  the  first  run,  a  new  file  is  associa¬ 
ted  with  unit  ;  on  succeeding  runs,  the  earlier  file  is  read,  the  results  for  the 
new  bands  are  added  in,  and  the  same  file  is  rewritten  so  that  the  cumulative 
results  are  available.  This  is  all  done  automatically,  provided  that  the  original 
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file  is  available  and  the  instrumental  scanning  function  and  certain  other  para¬ 
meters  are  the  same. 

The  present  version  of  Nl.TE  is  written  so  that  an  optional  file  associated 
with  unit  9  can  be  created  for  use  in  interactive  mode.  This  feature  is  discussed 
in  Section  '1. 3.  5. 

On  the  CYBER  750,  the  default  filenames  TAI’E1-TAPH6  are  used  for  the 
files  associated  with  units  1-6.  Unit  7,  if  selected,  is  associated  with  file  SPECK. 
Unit  9  is  associated  with  OUTPUT  on  the  CYBER. 

Units  2  and  3  are  rewound  before  they  are  read;  unit  1  is  not.  One  can  thus 
put  program  directives  for  several  runs  on  (separate  records  of)  unit  1  if  the  runs 
are  to  be  done  consecutively.  Unit  7,  if  it  is  used,  is  also  rewound  before  it  is 
read.  Except  for  unit  9,  all  files  to  which  M.TE  writes  output  are  rewound  before 
normal  termination  of  the  program. 

Appendix  C  contains  the  source  listing  for  Nl.TE.  Appendixes  A  and  B  give 
sample  program  input  and  output  for  two  separate  jobs- -one  which  calculates  the 
radiance  from  an  entire  band,  and  another  which  gives  the  results  for  a  single 
ro-vibrational  transition.  They  also  contain  the  command  sequences  used  to  run 
these  jobs  on  the  CYBER. 

3.2  Input  Requirements 

Unit  1  contains  general  program  directives  ;  nd  physical  parameters  descri¬ 
bing  the  transition(s)  being  considered,  it  is  read  with  list-directed  reads,  which 
allows  for  flexible  input  formatting  and  makes  it  easy  to  use  defaults.  In  fact, 
many  of  the  quantities,  particularly  the  program  directives,  have  built-in  defaults 
which  do  not  need  to  be  changed  by  the  user  in  most  circumstances. 

Units  2  and  3  are  each  read  in  fixed  formats,  described  below.  In  general, 
there  are  no  default  values  for  the  quantities  read  from  these  files;  however,  on 
unit  2,  the  program  will,  as  discussed  in  Section  3.  2. 2. 3,  interpret  the  input 
fields  in  a  way  which  varies  with  the  circumstances. 

All  three  input  files  may  begin  with  header  cards  containing  alphanumeric 
information  to  identify  their  contents.  Header  cards  are  identified  bv  the  charac¬ 
ter  C  in  the  first  column.  Any  number  of  header  cards  may  be  included  at  the 
beginning  of  the  files,  but  after  the  first  actual  data  are  read,  all  information  is 
interpreted  as  data.  That  is,  "comment  cards"  cannot  appear  in  the  bodies  of  the 
input  files. 

Sections  3.2.  1-3.  2. 3,  below,  describe  the  input  information  for  the  three 

required  data  files. 
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3.  2.  1  UNIT  1:  GENERAL  PROGRAM  DIRECTIVES 


Table  1  lists  the  program  input  obtained  from  unit  1.  The  list-directed  read 
allocates  one  field,  of  arbitrary  length  and  delimited  by  commas  or  blanks,  for 
each  variable.  Variables  corresponding  to  null  fields- -defined,  for  example,  by 
consecutive  commas- -are  unchanged  from  their  previously-set  default  values.  A 
slash  (/)  after  any  field  terminates  the  read  operation  and  defines  the  remaining 
fields  as  nulls.  It  is  thus  necessary  to  provide  numerical  or  character  input  only 
for  those  quantities  for  which  no  default  is  listed  in  Table  1.  Eor  list -directed 
reads,  all  character  variables  must  be  enclosed  in  single  quotes  ('),  as  indicated. 

Appendixes  A.  1  and  R.  1  contain  sample  input  for  two  different  jobs.  Sections 
3.  2.  1.  1  -  3.  2.  1.  5,  below,  discuss  the  infer 1  n a1  ion  read  fr  rn  the  four  or  five 
card-images  comprising  file  TAPEl. 

3.  2.  1.  1  1A;  Line  Directives 

Information  on  the  line  directives  card  identifier  the  transitions  under  consid¬ 
eration.  The  molecule  code  is  a  charae’er  variable  orresponding  to  one  of  the 
first  eight  infrared-active  molecule,  included  in  the  A  EG  I  database- -that  is, 

'H2C,  'C02 '03',  'N20',  ’CO’,  '(114',  ’02',  or  NO1  should  be  read.  The  iso- 

p 

tope  code  and  the  designation  of  the  vibrational  states  are  standard  AFG  I.  notation. 
For  linear  molecules  only,  within  the  hand  identified  by  1ST  and  I.ST,  one  may 
consider  only  the  P,  Q,  or  R  branches,  <.r  else  all  branches  (default).  For  the 
branch(es)  considered,  one  may  choose  a  single  rotational  quantum  line--identified 
by  NRL,  the  J  quantum  number  of  the  lower  rotational  state- -or  all  the  lines 
(default). 

3.  2.  1.  2  IB:  Viewing  Path  Parameters 

The  viewing  path  parameters  define  the  line-of-sight  of  the  observer.  NLTE 
can  handle  limb-  or  zenith-look  geometry.  In  limb-look,  the  path  is  parameter¬ 
ized  by  a  single  quantity,  the  tangent  height.  The  observer  is  presumed  to  be 
above  the  atmosphere  and  the  path  extends  from  space  to  space  through  the  tangent 
point.  In  zenith-look,  the  sensor  looks  directly  upwards  from  some  point  within 
the  atmosphere.  The  path  is  parameterized  by  this  observation  height. 

NLTE  is  capable  of  calculating  the  radiance  over  many--but  not  more  than  50 
--viewing  paths  in  a  single  run.  The  viewing  path  parameters  are  defined  by  a 
range  (TANI-TANF)  and  spacing  interval  (SPAC)  rather  than  a  set  of  discrete  val¬ 
ues.  Limb-  and  zenith-look  geometry  are  distinguished  by  the  sign  of  SPAC,  If 
SPAC  is  positive,  NLTE  assumes  limb-look;  if  SPAC  is  negative,  NLTE  computes 
the  radiance  in  the  zenith.  For  example,  if  card  IB  contains  "70,  85,  -5",  obser¬ 
vation  heights  of  70,  75,  80,  and  85  km  are  assumed  for  the  zenith  calculation.  If 
a  band-radiance  calculation  involves  more  than  500  lines,  only  five  viewing  paths 
can  be  run  at  once. 
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Table  1.  Program  Input  on  Unit  1 


Variable  Description 

Units 

Type 

Example 

Default 

CARD  1A: 

Line  Directives 

MOL 

Molecule  code 

— 

Char 

'C02' 

— 

ISO 

Isotope  code 

— 

Integer 

626 

UST 

Upper  vib  level 

— 

Char 

'01101' 

- 

LST 

Lower  vib  level 

— 

Char 

'00001' 

BR 

Branch  (P,  Q,  R,  A) 

— 

Char 

■Q' 

A 

NRL 

Rot'l  Line  number 

— 

Integer 

14 

999 

CARD  IB: 

Viewing  Paths 

TANI 

Lowest  tang  or  observ  ht 

km 

Real 

70 

— 

TANF 

Highest  tang  or  observ  ht 

km 

Real 

85 

TANI 

SPAC 

Interval 

km 

Real 

5 

+  1 

CARD  1C: 

Program  Directives 

HMAX 

Top  of  atmosphere 

km 

Real 

130 

see  text 

ACC 

Accuracy 

— 

Real 

0.  05 

0.01 

NPTS 

Integ  pts  per  panel 

— 

Integer 

2 

4 

NDP 

Lineshape  code 

— 

Integer 

0 

0 

VMIN 

Low  end,  freq  range 

cm"1 

Real 

600 

0 

VMAX 

High  end,  freq  range 

cm"1 

Real 

800 

20,000 

CARD  ID: 

Synthetic  Spectrum  Parameters 

FWHM 

Width  of  scanning  fn 

cm  nm 

Real 

20.  1 

0 

DEL 

Spacing  of  points 

- 1 

cm  ,  fi m 

Real 

2 

1 

UNIT 

Units  of  FWHM  and  DEL 

— 

Char 

'CM-  r 

'CM-  1' 

CARD  IE: 

Band  parameters** 

VIBE 

Vib  energy  of  transition 

cm’1 

Peal 

667.  379 

— 

VIBL 

Vib  energy  of  lower  state 

cm"1 

Real 

0.  0 

— 

VIBQ 

Vib  quantum  in  part'n  fn 

cm"1 

Peal 

667.  379 

GL 

Statistical  wgt,  lower  st 

— 

Integer 

1 

- 

GU 

Statistical  wgt,  upper  st 

— 

Integer 

2 

— 

**Note  that  card  IE  is  sometimes  superfluous  (see  text) 
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3.2. 1.3  1C:  Program  Parameters 

HMAX  is  the  highest  altitude  to  be  considered  in  performing  the  calculation-- 
that  is,  the  "top"  of  the  atmosphere.  It  should  be  sufficiently  greater  than  TANF 
so  that  the  radiance  contributions  from  higher  (neglected)  altitudes  are  of  little 
consequence.  It  defaults  to  the  highest  altitude  in  the  profile  read  on  unit  2. 

ACC  is  the  nominal  accuracy  of  the  integrated  radiance  computed  for  each 
individual  line,  expressed  as  a  fractional  error.  It  was  introduced  as  £  in 
Section  2.  3.  4.  Except  for  the  numerical  integration,  all  the  mathematical  (as 
opposed  to  physical)  approximations  are  designed  to  contribute  errors  in  the  end 
results  which  are  smaller  than  this  amount. 

NPTS  is  the  number  of  integration  points  per  panel  in  the  numerical  integra¬ 
tion  over  frequency.  Acceptable  values  are  2,  4,  and  8.  We  know  of  no  way  to 
assess  the  accuracy  of  the  integration  procedure  except  to  increase  this  parameter. 
However,  for  most  cases  we  tested,  using  the  default  value  (4)  instead  of  the 
maximum  value  (8)  introduces  errors  of  less  than  those  allowed  by  specifying 
ACC  =  0.  001. 

The  lineshape  code,  NDP,  can  have  the  values  -1,  0,  and  1.  The  default 
value,  0,  selects  the  new  Voigt  routine  ZVGTC.  A  value  of  +1  gives  the  Doppler 
lineshape.  A  value  of  -1  accesses  Voigt  function  VWERF,  which  is  very  accurate 
but  much  slower  than  ZVGTC.  We  have  not  found  any  case  in  which  the  older 
routine  gives  significantly  different  results. 

VMIN  and  VMAX  define  the  range  of  line  positions  to  be  searched  on  unit  3 
for  transitions  to  be  considered.  Default  is  to  search  the  entire  file. 

3.2.  1.4  ID:  Synthetic  Spectrum  Parameters 

If  a  synthetic  spectrum  is  desired,  a  positive  number  niust  be  read  for 
FWHM;  otherwise  the  default  condition  (no  svnthetic  spectrum)  is  assumed.  The 
result  is  in  units  of  watt/(cm2-ster-cm‘I)  or  watt/(cm2-ster-/jm),  depending  on 
UNIT.  Possible  values  of  UNIT  are  'CM-l'  and  'DM1.  If  spectra  from  previous 
runs  are  being  added  in,  FWHM,  DEL,  and  UNIT,  as  well  as  TANI,  TANF,  and 
SPAC,  must  all  be  exactly  the  same  as  the  earliest  values.  No  more  than  12 
synthetic  spectra  will  be  generated,  even  if  the  number  of  viewing  paths  is  greater. 

3.2. 1.5  IE:  Band  Parameters 

In  order  to  perform  the  radiance  calculation,  Nl.TE  uses  five  parameters 
which  represent  properties  of  the  vibrational  lc.  /els  under  consideration.  In  order 
to  ease  the  input  requirements,  these  properties  of  many  important  levels  of  two 
important  molecules.  C02  and  NO,  have  been  stored  in  BLOCK  DATA  MOl.PAR 
for  automatic  retrieval  by  the  program,  l  or  other  molecules  and  for  CO2  and  NO 
levels  not  included  in  this  database,  however,  it  is  necessary  to  read  in  these 
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quantities.  The  fifth  data  card  must  then  be  included  on  unit  1. 

The  three  energies  needed  are  VIBE,  the  energy  of  the  vibrational  transition, 
which  is  needed  to  calculate  f  ;  VIBL,  the  vibrational  energy  of  the  lower  state, 
needed  for  Pj  and  also  for  other  purposes;  and  VIBQ,  the  energy  of  the  lowest 
lying  vibrational  state,  needed  to  calculate  the  vibrational  partition  function.  The 
statistical  weights  of  the  upper  and  lower  states  are  used  to  calculate  the  popula¬ 
tions  of  the  vibrational  levels.  Table  2  gives  the  list  of  vibrational  levels  for 
which  the  necessary  information  is  stored.  Card  IE  can  be  omitted  if  the  radia¬ 
tive  transition  connects  any  two  of  these  vibrational  states. 

3.2.2  UNIT  2:  ATMOSPHERIC  PROFILE 

3.2.2.  1  Requirements  for  the  Atmospheric  Profile 

The  information  contained  on  unit  2  defines  the  model  atmosphere.  Since 
NLTE  provides  no  means  of  determining  the  populations  of  the  radiating  states 
independently,  it  is  necessary  to  read  a  sufficient  amount  of  data  to  enable  such  a 
calculation  for  all  altitudes  of  interest.  The  information  read  pertains  to  vibra¬ 
tional  levels,  not  ro-vibrational  levels.  (The  ro-vibrational  populations  are 
derived  using  a  rotational  temperature  equal  to  the  kinetic  temperature).  The 
vibrational  partition  function,  Qv,  is  also  needed  and  information  used  to  evaluate 
it  is  contained  on  unit  2. 

We  distinguish  between  regular  bands,  in  which  the  lower  vibrational  state 
is  the  ground  vibrational  state,  and  hot  bands  in  which  the  lower  vibrational  state 
is  not  ground.  In  general,  we  regard  each  vibrational  state  as  having  its  own 
vibrational  temperature,  even  though,  in  practice,  strongly-coupled  levels  may 
be  described  by  the  same  temperature  profile.  Because  the  vibrational  tempera¬ 
ture  of  the  ground  state  is  not  meaningful,  less  input  information  is  required  for 
regular  bands  than  for  hot  bands. 

Since  the  vibrational  levels  may  be  described  in  alternate  but  equivalent  ways, 
NLTE  provides  different  input  options  for  users  with  model  atmospheres  expressed 
in  terms  of  different  quantities.  For  regular  bands,  the  populations  of  the  upper 
and  lower  radiating  vibrational  state  s  may  be  calculated  from  the  total  number 
density  and  the  upper-state  vibrational  temperature,  or  conversely.  For  hot  bands, 
the  total  number  density  is  required,  but  one  may  specify  either  the  number  den¬ 
sities  or  the  vibrational  temperatures  of  the  upper  and  lower  radiating  vibrational 
states.  NLTE  allows  for  input  in  various  combinations,  and  it  distinguishes  them 
automatically  according  to  criteria  discussed  in  Section  3. 2. 2.  3. 

For  the  partition  function,  the  approximation  discussed  in  Section  2.3.  7 
requires  the  vibrational  temperature  of  the  lowest  vibrational  level  of  the  mole¬ 
cule.  This  can  be  read  directly  or  calculated  from  the  number  density  of  this 
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Table  2.  CO2  and  NO  Vibrational  Levels  Included  in  MOLPAR 


- - - 1 

CO2  levels 

NO  levels 

iso 

626 

636 

628 

627 

638 

637 

828 

46  56 

48 

level 

level 

00001 

X 

X 

X 

X 

X 

X 

X 

0  X  x 

X 

01101 

X 

X 

X 

X 

X 

X 

X 

1  XX 

X 

10002 

X 

X 

X 

X 

X 

X 

X 

2  xx 

X 

02201 

X 

X 

X 

X 

X 

X 

X 

3  X 

10001 

X 

X 

X 

X 

X 

X 

X 

4  x 

11102 

X 

X 

X 

X 

5  x 

03301 

X 

X 

X 

X 

6  x 

11101 

X 

X 

X 

X 

00011 

X 

X 

X 

X 

X 

X 

X 

20003 

X 

X 

X 

X 

12202 

X 

X 

X 

X 

20002 

X 

X 

X 

X 

04401 

X 

X 

X 

X 

12201 

X 

X 

X 

X 

20001 

X 

X 

X 

X 

01111 

X 

X 

X 

X 

10012 

X 

X 

X 

X 

02211 

X 

X 

X 

X 

10011 

X 

X 

X 

X 

11112 

X 

X 

X 

X 

03311 

X 

X 

X 

11111 

X 

X 

X 

X 

00021 

X 

X 

X 

X 

20013 

X 

X 

X 

X 

12212 

X 

X 

X 

04411 

X 

X 

X 

20012 

X 

X 

X 

X 

12211 

X 

X 

X 

20011 

X 

X 

X 

X 
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level  and  that  of  the  ground  state.  NLTE  automatically  distinguishes  between 
these  two  possibilities,  also. 

3.  2.  2.  2  Input  Format 

Unit  2  is  read  using  a  formatted  read  which  is  the  same  for  all  o  ptions. 
Following  the  header,  the  card-images  each  contain  all  the  information  pertaining 
to  a  single  altitude.  They  are  ordered  according  to  increasing  altitude.  No  more 
than  250  altitudes,  corresponding  to  249  layers,  can  be  read.  The  format  is 
(F5.  1,  F10.3,  5E12.5,  A15),  where  the  first  two  fields  are  reserved  for  the 
altitude  and  temperature,  and  the  next  five  are  for  the  various  allowed  combina¬ 
tions  of  number  densities  and  vibrational  temperatures.  The  character  field  is 
used  for  overriding  the  default  interpretations  of  the  input  data.  (See  Sections 
3. 2. 2. 3  and  3. 2. 2. 4. ) 

The  variables  which  can  be  read  from  unit  2  are  defined  in  Table  3.  The  last 
three  variables  are  used  only  for  approximating  the  partition  function.  There  are 
11  options  for  reading  the  data,  each  involving  a  different  combination  of  these 
quantities.  Six  options  pertain  to  regular  bands,  four  to  hot  bands,  and  the  Iasi 
implies  LTE  conditions  and  is  therefore  useful  for  both  regular  and  hot  bands. 
The  combinations  are  listed  in  Table  4. 


Table  3.  Variables  Read  from  Unit  2 


*  ALT - the  altitude  (km)  (required) 

*  TRTMP--  the  translational  temperature  (K>  (required) 

3 

*  RHO - the  total  number  density  (molecules/cm  ).  This  includes  all  iso¬ 

topes. 

*  TVL - vibrational  temperature  of  the  lower  level  (K).  (Hot  bands  only.  ) 

*  TVU - vibrational  temperature  of  the  upper  level  (K) 

3 

*  NL - number  density  of  the  lower  vibrational  level  (molecules/cm  ). 

Unlike  RHO,  this  refers  only  to  the  isotope  under  consideration. 

*  NU . like  NL,  but  for  the  upper  vibrational  level 

*  TVQ - vibrational  temperature  of  lowest  excited  state  (K) 

3 

*  NO - number  density  of  the  ground  vibrational  state  (molecules/cm  ),  for 

the  isotope  under  consideration 

*  N1 - like  NO,  but  for  the  lowest  excited  vibrational  state 
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Appendixes  A.  2  and  B.2  contain  sample  atmospheric  profiles  using  two  differ 
ent  input  options.  A.  2  illustrates  the  use  of  vibrational  temperatures  on  input 
(option  7).  B.2  illustrates  the  use  of  number  densities  for  both  the  radiative 
transition  and  the  vibrational  partition  function. 


Table  4.  Possible  Combinations  of  Input  Data 
on  Unit  2. 


■ -  —  -  -1 

Option 

Regular 

Bands: 

1. 

ALT, 

TRTMP,  RHO,  TVU,  TVQ 

2. 

ALT, 

TRTMP.RHO,  TVU,  NO,  N1 

3. 

ALT, 

TRTMP.  NL,  NU,  TVQ 

4. 

ALT, 

TRTMP,  NL,  NU,  NO,  N1 

5. 

ALT. 

TRTMP.RHO,  TVU 

6. 

ALT, 

TRTMP.NL,  NU 

Hot  Bands: 

7. 

ALT, 

TRTMP.RHO,  TVL,  TVU,  TVQ 

8. 

ALT, 

TRTMP.RHO,  TVL,  TVU,  NO,  N1 

9. 

ALT. 

TRTMP.RHO,  NL,  NU,  TVQ 

10. 

ALT, 

TRTMP.RHO,  NL,  NU,  NO,  N1 

LTE  Conditions: 

11. 

ALT, 

TRTMP.RHO 

With  options  1-4,  a  redundancy  is  implied  if  the  radiative  transition  connects 
the  ground  and  first  excited  states  because,  for  example,  TVU  and  TVQ  are  iden¬ 
tical.  In  this  case,  option  5  or  6  can  be  used.  If,  on  the  other  hand,  the  radia¬ 
tive  transition  connects  a  higher  state,  use  of  option  5  will  require  that  the 
vibrational  partition  function  be  calculated  with  the  vibrational  temperature  appro- 
piate  for  the  radiating  states  rather  than  that  for  the  lowest  lying  levels.  This 
leads  to  errors  in  the  radiance  calculation  which  will  be  quite  small  for  most 
quiescent  conditions.  For  option  6,  the  radiance  will  be  correct,  although  quanti¬ 
ties  which  are  printed  but  not  used  will  be  slightly  in  error. 

For  options  7  and  8,  a  blank  field,  or  zero,  in  place  of  TVU  will  cause  the 
program  to  equate  TVL  and  TVU--that  is,  use  the  same  profile  for  both 
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vibrational  temperatures. 

3. 2.  2.  3  Default  Interpretations 

NLTE  automatically  distinguishes  among  the  11  allowed  combinations.  It  does 
so  by  interpreting  the  data  on  the  first  card-image--that  is,  the  data  describing 
the  lowest  altitude  included  on  the  file- -according  to  the  numerical  values  appear¬ 
ing  in  special  fields.  These  special  fields  are  the  fourth  and  fifth  fields  for 
regular  bands,  and  the  fourth  and  sixth  fields  for  hot  bands.  The  numbers  in  them 
can  either  be  zero  (blank  fields)  or  can  represent  a  vibrational  temperature  or  a 
number  density. 

Vibrational  temperatures  generally  have  numerical  values  between  100  and 
500,  while  number  densities  are  usually  much  larger.  The  default  criteria  for 
distinguishing  among  options  are:  (1)  A  nonpositive  numerical  value  in  a  special 
field  indicates  unavailable  data;  (2)  A  positive  value  below  1000  indicates  a  vibra¬ 
tional  temperature;  (3)  A  value  above  1000  indicates  a  number  density.  For 
regular  bands,  for  example,  reference  to  T  able  4  shows  that  options  1  and  3 
differ  from  options  2  and  4  because  the  partition  function  may  be  calculated 
directly  from  TVQ  or  indirectly  from  NO  and  Nl.  The  value  of  the  quantity 
appearing  in  the  fifth  data  field  identifies  it  as  either  NO  or  TVQ,  and  the  range  of 
possibilities  is  narrowed  accordingly.  Similarly,  the  quantity  in  the  fourth  field 
is  either  NU  or  TVU.  Its  value  distinguishes  between  options  1  and  3  or  between 
options  2  and  4.  A  blank  in  field  5  implies  option  5  or  6.  A  blank  in  field  4  implies 
option  11:  no  vibrational  temperatures  are  available,  so  the  translational  temper¬ 
ature  is  used  to  calculate  all  populations. 

3.  2.  2.  4  Override  Code 

NLTE  provides  an  override  capability  for  the  default  interpretations,  to  allow 
for  possible  ambiguities.  For  example,  data  intended  to  be  read  with  an  option  9 
interpretation  might  be  mistakenly  read  with  option  7  if  the  upper  radiating  state 
is  only  populated  to  the  extent  of  a  few  hundred  molecules/cm3.  In  that  case  it 
would  be  necessary  to  read  a  character  variable,  CODE  (only  on  the  lowest-alti- 
tude  card-image),  to  orient  the  program  properly. 

CODE  should  appear  as  three  consecutive  characters  anywhere  in  columns 
76-90  of  the  lowest  altitude  data  card.  It  should  not  be  delimited  with  quotes. 

Table  5  gives  the  proper  override  codes  and  the  options  which  they  force  into 
effect. 


36 


Table  5.  Override  Codes 


r-* - : - - —  .  ~  j 

CODE 

Action 

default  interpretation 

LTE 

LTE  conditions  prevail 

T.  T 

requires  option  1  or  7 

T,  N 

requires  option  2  or  8 

N,  T 

requires  option  3  or  9 

N,  N 

requires  option  4  or  10 

3.2.3  UNrr  3:  LINEFILE 

3.2.3.  1  Requirements  for  the  Linefile 

The  properties  of  the  lines  used  in  the  radiance  calculation  are  taken  from 
unit  3.  This  is  a  coded  linefile,  a  subset  of  the  AFGL  Atmospheric  Absorption 
Line  Parameters  Compilation^.  3,  4  maintained  by  personnel  at  AFGL/OPI.  The 
quantities  read  by  NLTE  are  given  in  Table  6,  as  is  the  format  determined  by  the 
larger  database. 


Table  6.  Line-File  Data  for  Each  Ro-Vibrational  Transition 


Format 

Symbol 

Line -file  Datum 

F10.  4 

"o 

Resonant  Frequency  (cm*-) 

E10.  3 

S(Ts) 

Line  Intensity  (LTE,  296K )  (cm  '/fflol-cm^l 

F5.  4 

“o 

Lorentz  half-width  (latm)  (cm'Vatm) 

F10.  3 

E" 

Energy  of  the  lower  state  (era-') 

2A8,  A 10,  A9 

Quantum  numbers,  line  identifiers 

13 

Entry  code  for  these  data 

14 

ISO 

Isotope  code 

13 

MOL 

Molecule  code 
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The  physical  data  in  Table  6  have  been  discussed  earlier.  The  total  lower- 
state  energy,  E",  is  needed  to  obtain  the  rotational  energy,  E^"  for  the  calculation 
of  Eq.  (19).  The  entry  code  and  the  molecule  code  are  not  checked  by  NI.TE.  The 
isotope  code  is  the  same  as  the  variable  ISO  read  from  unit  1.  The  quantum 
numbers  and  line  identifiers  are  different  for  different  molecules.  ^  In  fact,  the 
corresponding  formats  are  different  as  well.  NI.TE  reads  each  file  in  a  format 
appropriate  for  the  molecule  being  considered. 

Appendices  A.  3  and  B.  3  give  examples  of  coded  linefiles  appropriate  for  input 
to  NI.TE. 

3.  2.  3.  2  Obtaining  the  Einefile 

The  AFGL  Atmospheric  Absorption  I.,ine  Parameters  Compilations  has  been 
described  in  many  publications,  2*  3*  ^  At  AFGL,  it  resides  on  a  disk  pack  to 
which  it  was  written  in  buffered  binary  form.  Dr.  L.S.  Hothman,  who  is  respon¬ 
sible  for  the  compilation,  has  prepared  a  Cyber  Control  I.anguage  procedure, 
WHITE,  for  obtaining  coded  subsets  of  the  database. 

Users  who  do  not  have  access  to  Dr.  Rothman's  disk  pack  can  obtain  the 
linefile  information  from  magnetic  tape.  The  data  format  and  a  possible  approach 
to  acquiring  files  from  this  medium  have  been  discussed  in  the  report1  accompany¬ 
ing  the  first  release  of  NI.TE,  and  we  refer  readers  to  that  publication  for  this 
information. 

Example  1  gives  a  control-card  sequence  which  obtains,  saves,  and  lists  all 
ozone  lines  between  2000  and  2020  cm"1  using  WRITE.  The  GET  command  locates 
the  file  containing  the  procedure  and  the  BEGIN  command  invokes  it.  The  latter 
contains  optional  parameters,  described  in  Table  7,  which  determine  the  disposi¬ 
tion  of  the  information  acquired  from  the  compilation.  The  data  card(s)  following 
the  end-of-record  provide  the  information  the  procedure  requires  to  identify  the 
desired  lines. 


EXAMPLE  1  Use  of  the  Procedure  WHITE 


JOB.  .  . 

USEH.  .  . 

CHARGE.  .  . 

GET,  P-  PROCEDU/ UN  =  HOTHMAN. 

BEGIN.  WRITE,  P,  PFN-OZONELN,  COPFIL=YES. 
- EOR -  - 

2000,  2020,  '03',  ,  ,  ,  ,  ’PFILE' 


(1)  Identifying  the  Lines 

The  information  to  be  taken  from  the  data  cards  is  listed  in  Table  8.  Each 
card  is  read  with  a  list -directed  read,  which  means  that  the  data  fields  (eight  in 
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Table  7,  Parameters  for  the  Procedure,  WRITE 


KEYWORD 

VALUE 

DEFAULT 

PFN 

Permanent  File  Name 

No  save  is  done  even  if  PFILE  is 
specified  on  some  data  cards 

COPFIL 

YES 

NO  (no  list  of  TAPE8) 

SORTM 

YES 

NO  (no  SORT /MERGE) 

number)  should  be  separated  by  comma  delimeters  and  no  attention  need  be  paid  to 
the  columns  used  for  each  field.  Default  values  result  from  blank  fields  (consecu¬ 
tive  commas).  After  the  last  field  containing  a  nondefault  value,  a  slash  (/)  can  be 
used  to  terminate  data  input  for  that  card.  Either  the  slash  or  a  sufficient  number 
of  commas  to  define  each  field  must  be  used.  All  input  data  of  type  character 
must  be  surrounded  by  single  quotes.  Leading  blanks  inside  the  quotes  will  give 
unpredictable  results.  Anywhere  else,  blanks  are  irrelevant.  Any  number  of 
cards  can  be  included. 


Table  8.  Input  Data  for  the  Procedure,  WRITE 


DATUM 

QUANTITY 

TYPE 

DEFAULT 

VI,  V2 

Frequency  Range  (cm'*) 

Integer,  Real 

None 

MOL 

Molecular  Formula 

Character 

All  molecules 

ISO 

Isotope  Code 

Integer 

All  isotopes 

UST,  LST 

Band  quantum  numbers 

Character 

All  bands 

SCRIT 

Threshold  Strength 

Real 

All  strengths 

DISPOS 

File  Disposition  Code 

Character 

List  only 

VI  and  V2  must  be  specified,  as  there  is  no  default.  MOL  is  the  alphanu¬ 
meric  symbol  giving  the  molecular  formula.  ISO  is  the  isotc  pe  code.  UST  and 
LST  are  the  upper-  and  lower-state  quantum  numbers  for  the  vibrational  bands 

desired.  The  quantum  numbers  are  different  for  different  molecules,  and  their 

2 

meaning  is  discussed  by  McClatchey  et  al.  For  the  purposes  of  WRITE,  one  en¬ 
ters  consecutive  digits  inside  quotes,  for  example,  '11101.  ' 

SCRIT  is  the  intensity  threshold.  Lines  which  are  weaker  than  this  threshold 
are  ignored.  Because  of  the  small  magnitudes  involved,  an  E  descriptor  should 
be  used. 
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The  data  selected  by  the  procedure  can  be  either  listed  on  OUTPUT  or 
written  to  TAPE8,  which  is  defined  as  a  direct-access  permanent  file.  DISPOS  is 
a  code  used  to  select  the  desired  disposition.  Entering  'PFILE'  in  this  field  causes 
TAPES  to  be  written.  Anything  else  invokes  the  list  option.  One  can  list  some 
data  and  save  other  data  by  entering  different  disposition  codes  on  different  cards. 

Lines  satisfying  the  requirements  of  each  separate  data  card  are  frequency- 
ordered  on  whichever  file  they  are  directed  to.  However,  lines  from  one  data 
card  will  always  follow  those  from  preceding  cards.  If  the  frequency  ranges  are 
increasing  and  do  not  overlap,  frequency-ordering  is  preserved.  Otherwise,  for 
TAPE8,  only,  a  SORT/MERGE  option  can  be  specified  on  the  BEGIN  card  to 
restore  frequency-ordering.  Frequency-ordering  is  not  necessary  for  NLTE. 

(2)  Parameters  for  WRITE 

The  BEGIN  card  invokes  the  procedure  WRITE  (which  is  found  on  logical  file 
P  in  our  example).  It  allows  up  to  three  optional  parameters  which  are  used  for 
separate  purposes:  to  preserve  the  frequency-ordering  on  TAPE  8,  as  mentioned 
above;  to  give  the  permanent  file  name;  and  to  cause  the  information  on  TAPE8  to 
be  copied  to  OUTPUT.  The  form  of  each  of  these  parameters  is  KEYWORD; 
VALUE  where  KEYWORD  is  fixed  and  VALUE  is  supplied  by  the  user.  Table  7 
describes  these  parameters.  The  parameters  can  be  entered  in  any  order  follow- 
i  ng  the  logical  file  name.  Parameters  which  are  omitted  assume  default  values, 
the  effect  of  which  is  given  in  Table  7. 

3.3  Program  Output 

Appendixes  A.  4-A.  7  and  B.  4-B.  6  contain  program  output  for  Sample  Runs  1 
and  2.  In  general,  each  of  the  output  files  (units  4,  5,  and  6,  and  also  7  if  it  is 
used)  must  be  copied  to  a  printer  or  some  other  device  after  the  program  termin¬ 
ates  so  they  will  not  be  lost.  Sections  3.  3.  1  -  3.  3.  5  describe  the  information 
written  to  the  different  output  files. 

The  program  functions  differently  in  some  respects  when  only  one  line,  rather 
than  an  entire  band,  is  being  considered.  In  particular,  the  thin-line  bypass  option 
is  suppressed  so  that  the  full  calculation  is  performed  regardless  of  the  optical 
depth  along  the  path.  With  one  line,  no  synthetic  spectrum  can  be  generated. 
However,  the  detailed  radiance  profile  is  printed  out  (alorg  with  the  path  optical 
depth)  as  a  function  of  frequency  as  the  numerical  integration  proceeds  outwards, 
panel  by  panel,  from  the  resonant  frequency.  Note  that  because  of  both  the 
Gaussian  integration  and  the  panel-width  adjustment  for  the  wings  (see  Section 
2.3.4.  1),  these  points  are  not  equally-spaced  in  frequency.  There  are  other  ways 
in  which  the  printed  output  on  units  4  and  5  differs  as  well. 
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3.3.  1  UNIT  4:  PRINCIPAL  PROGRAM  OUTPUT 

The  principal  program  output  is  written  to  unit  4.  Examples  appear  in 
Appendixes  A. 4  and  B.4. 

NLTE  first  repeats  the  program  input  found  in  files  TAPE1,  TAPE2,  and 
TAPE3,  and  also  writes  some  subsidiary  information.  In  the  case  of  the  atmos¬ 
pheric  profile,  the  first  seven  variables  in  Table  3  are  all  printed  as  a  function 
of  altitude  for  the  altitude  range  used  in  the  calculations,  even  though  one  or  two 
of  them  will  have  been  calculated  rather  than  read  directly.  It  also  prints  the 
atmospheric  pressure  used  to  evaluate  the  Voigt  lineshape  (taken  from  a  program 
database  derived  from  the  U.  S.  Standard  Atmosphere,  the  vibrational  tempera¬ 
ture  TVQ  used  to  calculate  the  vibrational  partition  function,  and  the  partition 
function  itself. 

When  an  entire  band  is  considered,  the  integrated  radiance  is  printed  for  each 
line  and  each  viewing  path.  Two  quantities  are  given:  the  result  of  the  numerical 
integration  over  the  radiance  profile,  under  the  heading  "thick";  and  the  result 
which  would  be  obtained  if  there  were  no  absorption  along  the  path  ("thin").  Note 
that,  for  very  thin  lines,  the  latter  is  taken  as  the  proper  result  and  the  thick 
calculation  is  bypassed.  The  principal  results,  the  sum  of  the  integrated  radiance 
for  all  the  lines,  is  then  printed  as  "total  band  radiance.”  If  a  synthetic  spectrum 
is  generated,  that  is  the  last  information  written  to  unit  4. 

Note  that  if  there  are  more  than  five  viewing  paths,  the  program  loops  through 
them  in  groups  of  five,  putting  out  the  results  sequentially.  The  synthetic  spectrum 
for  all  paths  still  comes  at  the  end. 

As  noted  above,  the  program  output  for  single-line  runs  is  more  detailed. 

The  radiance  and  path  optical  depth  are  printed  as  a  function  of  frequency,  and  the 
results  of  the  integration  over  successive  panels  (designated  PI,  P2,  etc. )  are 
also  written.  The  contribution  from  the  tail  of  the  radiance  profile--the  region 
from  the  last  integration  panel  to  infinity- -also  appears.  Differences  in  the  output 
between  single-line  runs  and  band  runs  can  be  seen  by  comparing  Appendixes  A.  4 
and  B. 4. 

3.3.2  UNIT  5:  SUBSIDIARY  PROGRAM  OUTPUT 

The  output  on  unit  5  is  quite  detailed  information-- some  of  it  physical  and 
some  of  it  just  program  parameters  and  indices--which  can  be  used  in  various 
ways.  Examples  appear  in  Appendixes  A.  5  and  B.  5. 

For  a  full  band,  the  cumulative  program  execution  time  is  given  for  each  line. 
In  addition,  for  each  path,  the  cumulative  band  radiance  and  the  path  optical  depth 
at  the  center  of  each  line  are  printed.  The  latter  is  useful  for  estimating  the  ef¬ 
fects  of  self-absorption  along  the  paths.  In  addition,  the  indices  LB,  LL,  and  KM 
are  printed.  They  are,  respectively,  the  number  of  the  first  expanded  integration 
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panel,  the  number  of  the  last  panel  used,  and  the  index  of  the  highest -altitude 
layer  used.  l.R  is  the  same  for  all  paths  for  a  given  line;  the  others  may  be  dif¬ 
ferent.  LB  and  LI.  are  zero  for  thin  lines. 

For  single-line  runs,  two  sets  of  altitude-dependent  quantities  are  printed. 
Among  them  (in  the  first  set)  are  the  volume  emission  rate,  the  adjusted  line 
strength  KT,  the  Doppler  width,  the  Lorentz-to-Doppler  linewidth  ratio  RAT  [  y  in 
Eq.  (43))  ,  and  the  Voigt  function  at  the  line  center,  fj,  .  In  the  second  set  are, 
for  each  path,  the  physical  distance  (in  km)  through  each  layer,  the  optical  depth 
at  the  line  center  within  each  layer,  and  the  contribution  to  the  total  observed  ra¬ 
diance  at  the  lino  center  from  each  layer.  The  last  two  of  these  are  useful  for 
extimating  the  range  of  altitudes  "observed"  from  the  end  of  the  path--that  is,  the 
depths  from  which  radiation  escapes  along  the  viewing  path,  and  the  altitudes  at 
which  emission  from  deeper  layers  is  effectively  trapped.  For  limb-look,  how¬ 
ever,  only  the  near  half  of  the  viewing  path  is  evaluated  for  this  purpose. 

3.3.  3  (  NIT  6:  DIAGNOSTIC  INFORMATION 

The  information  written  to  unit  6  is  for  diagnostic  purposes  only.  Examples 
appear  in  Appendixes  A.  6  and  B.  6. 

If  peculiar  program  input  is  encountered,  potential  problems  may  be  noted  on 
unit  6.  Ir.  normal  operation,  the  headers  on  each  of  the  input  files  are  echoed,  as 
is  the  first  data  card -image.  Dummy  format  fields  are  juxtaposed  for  help  in  lo¬ 
cating  the  faulty  input.  In  the  case  of  unit  2,  the  program's  interpretation  of  the 
quantities  on  the  lowest-altitude  data  card  is  given,  in  order  to  eliminate  confu¬ 
sion  about  the  input  options  and  to  identify  the  logical  path  taken  by  the  atmos¬ 
pheric  profile  setup  routine,  ATMPR. 

NLTE  may  also  write  other  special  messages,  usually  to  make  note  of  a 
change  in  some  program  parameter  or  procedure  that  might  be  needed  to  avoid  an 
execution-time  error.  For  example,  if  the  synthetic  spectrum  array  is  in  danger 
of  being  overfilled,  NLTE  issues  a  warning  and  only  calculates  points  falling 
within  the  allotted  space.  (In  this  particular  case,  the  user  can  rerun  the  job  with 
a  larger  value  of  DEL  if  important  information  is  lost.  ) 

3.3.4  UNIT  7:  SYNTHETIC  SPECTRUM 

Unit  7,  file  SPECF,  is  read  and  written  only  when  a  synthetic  spectrum  is 
generated.  The  information  on  it  is  also  written  to  unit  4;  its  purpose  on  output 
is  to  provide  a  file  that  can  be  saved  and  used  as  input  to  another  program.  "An¬ 
other"  program  might  be  NLTE  operating  on  an  overlapping  band  (as  discussed  in 
Section  3.  1),  or  it  might  be  a  program  to  read  and  plot  the  results  of  the  final  cal¬ 
culation. 

The  format  of  SPECF  is  such  that  NLTE  can  read  it  automatically.  It  starts 


with  a  header  card-image  identifying  the  type  of  information  on  the  file  (band  radi¬ 
ance).  This  is  followed  by  header  card-images  identifying  the  molecule,  isotope, 
band,  and  branch,  with  one  card  for  each  band  contributing  to  the  spectral  radiance 
on  the  file.  Each  of  these  header  cards  also  contains  the  date  and  time  of  the 
NLTE  run  that  calculated  that  band's  contribution. 

The  first  data  card-image  gives  the  synthetic -spectrum  and  viewing  path  pa¬ 
rameters  used  to  generate  the  spectra  contained  on  the  file.  It  is  there  for  NLTE 
to  check  parameters  for  consistency,  but  can  be  ignored  by  plot  programs. 

The  second  card-image  gives  the  number  of  bands  contributing  to  the  spectra 
on  the  file,  and  the  total  integrated  radiance  due  to  all  these  bands. 

The  spectral  radiance  curves  start  at  the  third  data  card-image.  For  each 
wavelength  or  wavenumber  (depending  on  the  units  used),  there  is  one  card-image 
giving  this  quantity  followed  by  up  to  12  radiance  values,  1  for  each  viewing  path. 
The  format  is  (F10.  3,  IX.  12E10.3). 

An  example  of  unit  7  output  appears  in  Appendix  A.  7. 

3.3.5  UNIT  9:  OUTPUT  FOR  INTERACTIVE  USAGE 

NLTE  is  a  batch-oriented  code  in  the  sense  that  it  requires  input  files  to  be 
prepar  d  ahead  of  time.  Since  these  files  can  be  local,  however,  one  often  runs 
interactively.  In  such  cases,  it  is  useful  to  have  output  sent  directly  to  the  user, 
but  the  quantity  of  information  written  to  unit  4  precludes  the  association  of  TAPE4 
with  OUTPUT,  or  at  least  makes  the  outcome  less  than  satisfactory. 

To  surmount  this  difficulty,  NLTE  optionally  defines  an  output  file,  unit  9, 
which  is  associated  with  the  terminal  (OUTPUT,  on  the  CYBER).  The  information 
written  to  this  file  is  a  very  limited  subset  of  that  written  to  unit  4.  It  includes 
enough  information  to  identify  successive  stages  of  execution- -specifically,  read¬ 
ing  the  different  input  files--and  also  gives  the  principal  output,  the  integrated  ra¬ 
diance. 

The  procedure  for  making  this  feature  optional  relies  upon  a  conditional - 
compile  facility-using  C$  directives--which  is  available  on  the  CYBER  under  NOS 
2.  3.  It  is  invoked  by  using  the  DS  parameter  on  the  FTN5  control  card.  Under 
NOS,  omission  of  this  parameter  results  in  no  output  to  unit  9.  Other  compilers, 
however,  will  regard  the  C$  directives  as  FORTRAN  comments,  with  the  result 
that  unit  9  will  be  identified  and  used. 

I  Tran*|>orlabilil' 

In  addition  to  extensive  tests  on  the  CYBER  750  on  which  the  code  was  devel¬ 
oped,  NLTE  test  runs  have  been  completed  on  a  CRAY  1-A  supercomputer  and  on 
a  VAX  11/750  with  a  floating-point  accelerator  using  VMS. 

One  set  of  modifications  which  is  necessary  in  order  for  NLTE  to  run  on  other 
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systems  involves  replacing  the  calls  to  the  CYBER  system  functions  DATE,  TIME, 
and  SECOND.  DATE  and  TIME  are  called  in  subroutine  LINES,  and  the  results 
are  carried  into  SPECTRM.  SECOND,  which  gives  the  elapsed  processor  time, 
appears  in  three  places  in  the  main  program. 

The  limited  dynamic  range  of  FORTRAN  variables  which  is  imposed  by  some 
32 -bit  machines  can  cause  an  overflow  problem  while  evaluating  the  series  repre¬ 
sentation  of  the  Voigt  function  in  region  1  of  ZVGTC.  (See  Section  2.  3.  5.  )  The 

66 

largest  number  which  can  appear  there  is  approximately  10  ;  on  the  VAX,  the 

i3  8 

default  range  is  only  about  10  .  This  problem  can  be  avoided  by  using  VWERF 

instead  of  ZVGTC  (set  NDP  =  -1;  see  Section  3.  2.  1.  3).  Alternatively,  with  a  VAX, 
one  can  use  the  /G  FLOATING  option  in  ZVGTC  to  extend  the  dynamic  range  for 
the  variables  (AN,  FNR,  FNI,  FPR,  FPI)  which  require  it,  resulting  in  slower 
arithmetic  for  Region  1.  If  the  /G_FLOATING  format  is  implemented  in  software 
rather  than  hardware,  the  slowdown  is  considerable,  and  it  is  best  to  use  VWERF 
or  find  some  other  alternative. 

If  underflow  messages  appear  in  the  output,  setting  the  symbolic  constant 
EXPL  equal  to  the  largest  argument  the  EXP  function  can  handle  without  overflow¬ 
ing  may  eliminate  them.  For  the  VAX,  we  use  EXPL  =88. 

The  OPEN  statements  for  units  1-6  (in  subroutine  LINES)  do  not  contain  the 
FILE=  parameter.  One  uses  job  control  language  to  associate  input  files  with  the 
logical  units  (e.  g. ,  GET  on  the  CYBER  under  NOS  2.  3,  ASSIGN  on  the  VAX  and 
Cray).  For  unit  9,  if  it  is  used,  the  FILE1  parameter  must  be  set  to  terminal  out¬ 
put  (OUTPUT  on  the  CYBER,  SYS$OUTPUT  on  the  VAX). 

The  conditional-compile  facility  which  activates  unit  9  can  be  implemented  on 
a  VAX  using  the  /D_LINES  qualifier  on  the  FORTRAN  command,  provided  that  the 
proper  lines  of  code  are  prefixed  with  a  D  in  column  1.  These  lines  are  the  ones 
appearing  between  the  lines  prefixed  with  C$  in  NLTE,  LINES,  SPECTRM,  and 
HEADER. 

In  our  tests,  NLTE  ran  approximately  four  times  as  fast  on  the  Cray  as  on  the 
CYBER,  and  seven  times  slower  on  the  VAX  than  on  the  CYBER.  In  the  latter 
comparison,  VWERF  rather  than  ZVGTC  was  used  for  the  Voigt  function.  Fast- 
execute  optimizations  were  utilized  in  all  tests. 
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NLTE  has  been  applied  to  many  problems  involving  infrared  transmission  in 

13 

the  upper  atmosphere,  and  has  been  used  to  simulate  the  SPIRE  experiment  and 
other  experiments.  In  this  section,  we  illustrate  the  usefulness  of  the  code  by  cit¬ 
ing  results  from  our  model  of  solar-pumped  emission  from  the  CO„  v.  +  v~  com- 

14  d  L  J 

bination  bands  near  2.  7 pm. 

The  most  important  physical  mechanisms  involved  in  this  model  are 

(1)  solar  pumping  of  the  101  and  201  levels  from  ground  at  2.  7  and  2.  0//m, 
and  of  the  111  levels  from  the  low-tying  010  level  at  2.  7 pm; 

(2)  collisional  reorientation  reactions  which  redistribute  the  populations 
among  the  directly-excited  high-lying  Fermi  resonance  split  levels  (e.  g.  ,  20011, 
20012,  20013)  and  also  to  adjacent  levels  with  different  symmetry  which  are  them¬ 
selves  not  strongly  pumped  (12211,  12212); 

(3)  V-V  collisions  with  nitrogen  molecules,  the  net  effect  of  which  is  usually 
to  quench  the  radiating  levels;  and 

(4)  spontaneous  emission. 

Details,  including  assumed  reaction  rates  and  an  energy  level  diagram,  can  be 

14 

found  in  Sharma  and  Wintersteiner. 

We  first  used  a  solar-flux  absorption  code,  SABS,  which  is  similar  in  design 

to  NLTE,  to  calculate  the  excitation  rates  at  altitudes  between  40  and  160  km  due 

to  absorption  in  all  important  infrared  bands  of  COg.  We  then  assumed  steady 

state  conditions  and  equated  the  total  radiative  and  collisional  excitation  rates  with 

the  total  radiative  and  collisional  de-excitation  rates  to  get  the  number  densities  of 

all  the  high-lying  states  that  emit  at  2.  7pm.  Finally,  we  used  NLTE  to  predict 

the  observed  radiance  on  limb  paths  between  50  and  100km.  Using  an  independent 

14 

estimate  of  radiance  due  to  water  vapor.  we  compared  these  results  to  the 
SPIRE  database.  Because  the  rate  constants  for  the  collisional  reorientation  re¬ 
actions  are  poorly  known,  we  also  recalculated  the  radiance  using  adjusted  values 
for  these  constants  in  order  to  identify  the  errors  they  might  cause  and  set  limits 
on  their  possible  values. 

Figure  5  gives,  as  a  function  of  tangent  height,  the  total  CC>2  radiance  in  the 
2.  6  to  2.  9pm  region  (solid  squares)  and  the  breakdown  according  to  sets  of  contri¬ 
buting  bands.  The  most  important  sets  are  the  one  with  the  resonant  10012-00001 

13.  Stair,  A.T.,  Jr,,  Sharma,  R.D.,  Nadile,  R.M.,  Baker,  D„  J. ,  and  Grieder, 

W.  F.  (1985)  Observations  of  limb  radiance  with  cryogenic  Spectral  Infrared 
Rocket  Experiment  (SPIRE),  J.  Geophys.  Res.  90:9763. 

14.  Sharma,  R.D.,  and  Wintersteiner,  P.  P,  (1985)  CO2  component  of  daytime 

Earth  limb  emission  at  2.7  micrometers,  J.  Geophys.  Res,  90:9789. 


LIMB  RADIANCE  (watt /cm-ster) 


Figure  5.  Predicted  CO2  Band  Radiance  in  the  2.  6  to  2.  9^m  Range  as  a 
Function  of  Tangent  Height.  Circled  dots  represent  the  major-isotope 
resonant  bands;  crosses,  the  bands  originating  in  the  201  levels;  triangles, 
the  bands  originating  in  the  111  levels;  open  circles,  minor-isotope  reso¬ 
nant  bands:  open  squares,  bands  originating  in  the  121  levels;  solid  circles, 
bands  originating  in  the  301  levels;  and  diamonds,  bands  originating  in  the 
221  levels 
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and  10011-00001  transitions  ( (•)  )  and  the  one  with  the  transitions  originating  in  the 
20011,  20012,  and  20013  levels  (x).  Lines  in  the  resonant  bands  are  very  strongly 
self-absorbed  on  the  lower  viewing  paths,  in  contrast  to  lines  of  the  2.  7gm  hot 
bands  originating  in  the  201  levels,  most  of  which  are  thin.  For  this  reason,  the 
latter  group  of  bands  provides  the  greatest  contribution  to  the  total  radiance  for 
viewing  paths  extending  below  75  km.  Above  this  altitude,  the  self-absorption  is 

less  and  the  resonant  bands  dominate.  Groups  of  more  weakly  contributing  bands 

14 

in  Figure  5  are  discussed  in  Sharma  and  Wintersteiner. 

Figures  6  and  7  give  the  spectral  radiance  as  a  function  of  wavelength.  A  tri¬ 
angular  scanning  function  with  a  full  width  at  half  maximum  of  0.038/im  was  used 
to  produce  these  curves. 

In  Figure  6,  the  total  radiance  is  plotted  for  different  tangent  paths.  These 
curves  are  the  summed  output  produced  automatically  on  unit  7  by  consecutive 
NLTE  runs  for  all  the  contributing  bands. 

Figure  7  gives,  for  a  tangent  path  of  75  km,  the  breakdown  of  the  spectral  ra¬ 
diance  according  to  the  groups  of  bands  whose  integrated  contributions  are  shown 
in  Figure  5.  These  curves  are  also  summed  output  from  unit  7,  but  selected  dif¬ 
ferently. 

Figure  8  gives  the  total  spectral  radiance  for  the  75  km  tangent  path,  calcu¬ 
lated  using  different  assumptions  about  the  collisional  reorientation  reaction  rates. 
The  basic  model  is  the  same  curve  as  in  Figure  7.  "MODI"  decouples  some  of  the 
high-lying  levels,  and  "MOD2"  is  the  extreme  case  of  decoupling  all  these  levels. 
(Other  modifications  involved  coupling  that  was  somewhat  weaker,  or  somewhat 
stronger,  than  that  of  the  basic  model. )  One  can  see  that  the  NLTE  radiance  pre¬ 
dictions  are  quite  distinct- -distinct  enough,  in  fact,  that  a  comparison  with  the 
SPIRE  experiment  allows  us  to  rule  out  the  more  extreme  modifications  com¬ 
pletely  and  to  put  lower  limits  on  the  principal  rate  constants. 

The  comparison  with  the  experiment  is  given  in  Figures  9  and  10.  Although 
the  spectral  fit  is  not  perfect,  the  discrepancies  together  with  a  detailed  examina¬ 
tion  of  the  physical  mechanisms  involved  indicate  the  direction  in  which  the  cou¬ 
pling  may  be  adjusted.  In  general,  it  is  true  that  most  cf  the  conclusions  derived 
from  this  and  other  similar  modeling  efforts  rely  upon  comparing  the  total  pre¬ 
dicted  radiance  with  experimental  values.  In  this  way--by  use  of  an  accurate  and 
efficient  radiance  code,  like  NLTE --one  can  obtain  a  great  deal  of  information 
about  the  physical  processes  involved  in  exchange  of  energy  among  excited  vibra¬ 
tional  levels  of  one  or  more  molecular  types. 
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Figure  7.  Spectral  Distribution  of  CO2  Limb  Radiance,  Components,  for  the  Path 
With  a  Tangent  Height  of  75  km 
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LIMB  RADIANCE  (watts  /cm  -sler-fjun) 


V 


Figure  8.  Spectral  Distribution  of  Limb  Radiance,  From  the  Basic  Model  and 
From  Two  Modifications,  for  a  Path  With  a  Tangent  Height  of  75  km 
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Figure  9.  Comparison  of  Predicted  and  Experimental  Earn!  Radiance,  2.5  to 
2.  9<um,  From  SPIRE;  and  the  Results  of  the  CO2  Model, 14  the  H2O  Model, 
and  Their  Total.  The  detector  noise  limit  is  indicated  by  the  arrow 
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Fig  are  10.  Comparison  of  Predicted  and  Experimental  Spectral  Radiance  From 
the  SPIRE  Experiment  (Solid  Line)  With  Predictions  of  Contributions  From  CO2 
and  H2O,  for  a  Tangent  Path  of  73  km 
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Appendix  A 

Sample  Run  1:  Band  Radiance 

Appendix  A  contains  Sample  Run  1,  in  which  the  limb  radiance  due  to  the  low 
lying  02201-01101  hot  band  of  CC^  is  calculated  for  five  viewing  paths  with  tangent 
heights  between  70  and  90  km.  The  "top"  of  the  atmosphere  was  assumed  to  be  at 
150  km,  and  a  maximum  of  80  layers  was  used.  The  program  required  a  frac¬ 
tional  error  of  1  percent  or  less  for  each  line,  used  two  integration  points  per 
panel,  and  ran  in  17  sec  on  the  CYBER  750  at  AFGL.  (Using  four  integration 
points  per  panel,  the  same  job  takes  28  sec.  )  Synthetic  spectra  were  generated 
for  each  of  the  viewing  paths  and  were  added  to  spectra  previously  calculated  and 
stored  on  a  permanent  file,  due  to  the  fundamental  (01101-00001)  from  the  626, 
636,  and  628  isotopes. 

The  results  for  the  total  band  radiance  for  the  five  paths  differ  from  those  of 
a  similar  run  specifying  much  greater  accuracy  and  eight  integration  points  per 
panel  by  0.  14  percent,  0.09  percent,  0.41  percent,  0.87  percent,  and  1.01  per¬ 
cent.  This  indicates  that  (for  this  example,  at  least)  the  mathematical  approxima¬ 
tions  utilized  in  the  code  perform  properly. 

The  physical  approximation  introduced  by  the  homogeneous  atmospheric  lay¬ 
ers  is,  of  course,  not  addressed  by  this  comparison.  However,  as  discussed  in 
Section  2.  3.  4.  3,  we  expect  the  resultant  errors  to  be  on  the  order  of,  or  less  than, 
the  values  given  above. 
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41.  I  nil  1:  Input  for  Sample  Run  I 

'002',  626,  '02201',  '01101'/ 

70,  90,  5 
150,  .01,  2/ 

.  27,  .05,  'UM' 

42.  I'nit  2:  Input  for  Sample  Run  I 

The  beginning  of  the  file  defining  the  atmospheric  profile  used  for  Sample 
Run  1  is  given  below.  The  file  contained  data  for  altitudes  between  65  and  249km, 
but  was  only  read  to  150  km.  The  first  five  altitudes  were  also  ignored  (because 
the  lowest  tangent  height  was  70  km)  except  that  the  input  option  was  determined 
from  the  65-km  data.  Option  7  was  used  because  the  fifth  and  sixth  data  fields 
both  contam  vibrational  temperatures. 


CA0402S  ATMOS  PROFILE  7/16/85 

ALT ,  TRTMP ,  RHO ,  TVL ,  TVU ,  TVQ ALL  TVS  SAME  AS  ON  A0201S 

VIB  TEMPS  FROM  BULLITT'S  NU2  MODELLING  USING  O  QUENCHING 


CC02 

02201 

01101  65 

-249  KM 

65 

233.294 

. 10397E+13 

. 22829E+03 

. 22829E+03 

. 22829E+03 

66 

230.554 

. 90856E+12 

. 22482E+03 

. 22482E+03 

. 22482E+03 

67 

227.814 

. 79397E+12 

.  22136E+03 

. 22136E+03 

. 22136E+03 

68 

225.074 

. 69383E+12 

. 21783E+03 

. 21783E+03 

. 21783E+03 

69 

222.334 

.  60632E  +  12 

.21424E+03 

. 21424E+03 

. 21424E+03 

70 

219.590 

. 52965E+12 

.  21176 E+ 03 

. 21 176E+03 

. 21176E+03 

71 

217.350 

. 45791E+12 

.  20853E+03 

. 20853E+03 

. 20853E+03 

72 

215.110 

. 39589E+12 

. 20522E+03 

. 20522E+03 

. 20522E+03 

73 

212.870 

.  34227E+12 

.  20184E+03 

. 20184E+03 

.20184E+03 

74 

210.630 

. 29591E+1 2 

.  19839E+03 

. 19839E+03 

. 19839E+03 

75 

208.381 

. 2  5561E+1 2 

.  19487E+03 

. 19487E+03 

. 19487E+03 

76 

206.421 

. 21893E+12 

.  19146E+03 

.  1 91 4  6E+03 

. 19146E+03 

77 

204.461 

.  18752E+12 

.  18804E+03 

.  18804E+03 

. 18804E+03 

78 

202.501 

. 16061E+12 

. 18460E+03 

. 18460E+03 

. 18460E+03 

79 

200.541 

.  1 37  56E+1 2 

. 18119E+03 

.  18119E+03 

.  18119E+03 

80 

198.558 

.  11759E+1 2 

. 1 7780E+03 

.  17780E+03 

. 17780E+03 

81 

196.618 

. 10004E+1 2 

. 17445E+03 

.  17445E+03 

. 17445E+03 

82 

194.678 

. 85113E+11 

.17122E+03 

.  17122E+03 

.  17122E+03 

83 

192.738 

.72413E+11 

.16814E+03 

.  16814E+03 

.  16814E+03 

84 

190.798 

. 61608E+11 

. 16525E+03 

. 16525E+03 

.  16525E+03 

85 

188.886 

. 52136E+11 

. 16256E+03 

. 16256E+03 

.  16256E+03 

86 

188.606 

. 43675E+11 

. 16082E+03 

. 16082E+03 

.  16082E+03 

87 

188.326 

. 36587E+11 

. 15933E+03 

.  15933E+03 

.  15933E+03 
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A3,  (  nit  3:  Input  for  Sample  Run  1 

The  beginning  of  the  file  containing  the  transitions  needed  for  Sample  Run  1  is 
given  below.  That  data  corresponding  to  isotopes  other  than  the  one  of  interest 
are  ignored. 


LL0200 i 0  C02  all  02201  01101  0B/15/BS  15UM  NU2  MOT  BAND 


590  07000 

3. 7505-27 . 0550 

3054. 16) 

02201 

01  101 

P 

78 

40  2 

636 

2 

r.'J  1  .  5(830 

6 . 585E-27 . 0550 

2933  362 

02201 

0  1101 

p 

76 

482 

636 

2 

'•>»?  9G9  30 

1  .  1 38E- 26 . 0560 

2815. 695 

0220  1 

01101 

p 

74 

482 

636 

2 

S‘J4 .423  10 

1 . 936E-26.0560 

270 1.102 

02201 

01101 

p 

72 

482 

636 

2 

094  74740 

8.1116-27 .0550 

2989.619 

02201 

01)01 

p 

77 

482 

636 

2 

.  87980 

3. 242E-26.O570 

2589 . 604 

02201 

onoi 

p 

70 

482 

636 

2 

595 . 98850 

8 .8926-27 . 0560 

2870.575 

02201 

01101 

P 

75 

482 

636 

2 

097 . 23860 

1  .523E-26.0560 

2754 .619 

02201 

01101 

p 

73 

482 

636 

2 

597 . 33930 

6.3426-26.0560 

246 1 . 203 

02201 

01101 

p 

66 

48  2 

636 

2 

598  49760 

2 . 567E-26. 0570 

2641 .754 

02201 

01101 

p 

7  1 

482 

636 

2 

598 .80)70 

6.6636-26.0580 

2375.902 

02201 

01101 

p 

66 

482 

636 

2 

599  48690 

4 . 19BE-27 .0500 

4005.001 

02201 

01101 

P 

92 

482 

626 

2 

599. 76550 

4. 258E-26.0570 

253  l  .980 

02201 

01101 

p 

69 

482 

636 

2 

*i00 . 26700 

1  .  383E-25 . 0590 

2273.702 

02201 

onoi 

p 

64 

482 

636 

2 

G00 .88860 

8.220E-27.0510 

3862 . 635 

02201 

onoi 

P 

90 

482 

626 

2 

i»m .  04240 

6 . 952E- 26 . 0580 

2425.300 

02201 

01101 

p 

67 

482 

636 

2 

GO  1  .  73530 

2.  17  16-25.0590 

2174.605 

02201 

onoi 

p 

62 

402 

636 

2 

GO*  29400 

1  .5856-26.0520 

3723.345 

02201 

onoi 

p 

BB 

482 

626 

2 

h02 . 32B 1 0 

1  .  1  176-25.0590 

232  1  .7  15 

02201 

onoi 

p 

65 

48  2 

636 

2 

oOJ . 20650 

3.354E-25.0600 

2070 .612 

02201 

01  101 

p 

60 

482 

636 

2 

603 . 62260 

1 . 7 66E -  25 . 0590 

2221 .227 

02201 

01101 

P 

63 

482 

636 

2 

503  70290 

3 . 009E- 26 . 0520 

3587 . 135 

02201 

onoi 

p 

86 

482 

626 

2 

004 . 68080 

5.0986-25 . 0610 

1985.725 

02201 

01  101 

p 

58 

482 

636 

2 

604.92600 

2 . 748E- 25 . 0600 

2123.838 

02201 

01  101 

P 

61 

482 

636 

2 

6<i5  .  1  1550 

5. 6236-26. 0530 

3454 . 005 

02201 

onoi 

p 

84 

482 

626 

2 

605 . 26200 

6 . 09  2E  -  2  7 . 05  1  0 

3928 . 332 

02201 

onoi 

p 

91 

482 

626 

2 

hU6  .  15R  10 

7.6226-25.0610 

1895.946 

02201 

01101 

P 

56 

482 

636 

2 

t»06 . 238  11) 

4.2076-25.0600 

2029 . 549 

02201 

0110) 

P 

59 

462 

636 

2 

..lib  4  2940 

4 . 2146-27 . 0620 

1659.591 

02201 

01101 

P 

520482 

638 

2 

4  4940 

1  .  1826-  26.0510 

3787 . 723 

02201 

0  1101 

p 

89 

482 

626 

2 

».»•«  'iJlbO 

1 .0356-25.0530 

3323.959 

02201 

01101 

p 

82 

482 

626 

2 

.•1.7  .  1  1  /bO 

4.9006-27.0630 

1621 . 271 

02201 

0  1  101 

P 

510402 

636 

2 

..«»•*  .  50910 

6.3366-25.0610 

1938 . 362 

02201 

onoi 

p 

57 

4B2 

636 

2 

..0  /  .  63840 

1  .  1216-24.0620 

1809 . 275 

02201 

onoi 

P 

54 

482 

636 

2 

.>0  7 . 64490 

2 . 2506-26.0520 

3650 . 186 

02201 

0  1101 

P 

67 

482 

626 

2 

1.07  80700* 

5.8626-27.0630 

1583.686 

02201 

onoi 

p 

500482 

638 

2 

in'  7  9  2  4  10 

4 . 2576-27 . 0620 

1658 . 075 

02201 

onoi 

p 

52C482 

638 

2 

i.O  7.95170 

1 .8756-25.0540 

3196  999 

0220  l 

onoi 

P 

60 

462 

626 

2 

»U>U  49  7  80 

6 . 072E-27 .0630 

1546 . 836 

02201 

0  n  0  t 

p 

490462 

638 

2 

iiOb  55660 

5.0296-27.0630 

1619813 

02201 

onoi 

p 

51C4B2 

636 

2 

608  64850 

4.2486-26.0530 

3515. 725 

02201 

01101 

p 

85 

482 

626 

2 

»hj8 . 88860 

9.3866-25.0620 

1850.279 

02201 

onoi 

p 

55 

402 

636 

2 

609 . 12170 

1 . 6216-24.0620 

1725.716 

02201 

onoi 

p 

52 

482 

636 

2 

609 .  18980 

8 .0236-27 . 0640 

1510. 720 

022  01 

0  l  101 

P 

480482 

638 

2 

6U9 . 19150 

5 . 9  170-27 . 0630 

1582 . 204 

02201 

0  1101 

p 

50C482 

638 

2 

mV.)  .37  520 

3.3436-25.0550 

3073 . 1 27 

02201 

Onoi 

P 

78 

402 

626 

2 

m»9  8  28  70 

6.9346-27.0630 

1545 . 488 

0220  l 

Onoi 

P 

49C482 

638 

2 

609  BO  3 1 0 

9.3306-27.0640 

1475 . 339 

02201 

onoi 

P 

470482 

638 

2 

«Hi  06040 

7.8666-26.0530 

3364 . 347 

02201 

onoi 

P 

83 

482 

626 

2 

57 
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VI.  I  nil  I:  Output  From  Sample  Kun  I 

The  principal  program  output  from  Sample  Run  1  i.s  given  <>n  i ! i . 

following  15  pages. 


mor.')»U  NLTE  FOB  |NFR»qtO  B»Ot»NCt 
l?»U  *  H5/09/0«.  UME  -  09.21.02. 


i  apt  i 

tl«fp|? - SAMPLE  run  I.  7  A  PE  1 - CO?  Nil  2  I  SUM  F>26  Mf)T  6  AMO 


IA-  -LINE  DIRECTIVES! 

M()l  *  MOLECULE  CODE  *  CO? 
ISO  «  ISOTOPE  CODE  *  6 ?6 
list  *  UPPER  Vie  LVL  ■  0 2 ?0 1 
IM  a  LOWER  VIB  LVL  »  01101 
fill  *  RO-VlB  BRANCH  ■  A 
NPL  *  ROT  *  L  LINE  •  «  999 


111 - VIEWING  PATH  PARAMETERS: 

T  AN |  *  LOWEST  TANGENT  HEIGHT  (KM)  *  TO  00 
TANF  *  HIGHEST  TANGENT  HEIGHT  (KM)  *  90.00 
SPAC.  *  EXAMINATION  INTERVAL  (KM)  *  5.00 
1.00*  =  0:  LOOKING  GEOMETRV  CHOSEN  *  LIMB 


»C - PROGRAM  PARAMETERS: 

HMAX  *  ASSUMED  TOP  OF  ATMOSPHERE  (KM)  «  150 
ACC  *  ACCURACV  (INIEG'O  RADIANCE)  *  ,0»000 
NPTS  =  NUMBER  OF  INTEG  POINTS  PER  PANEL  «  7 
NOP  *  0;  LINESHAPE  OPTION  SELECTED  *  VOIGT 
VMIM  *  LOWER  END.  LINE  SEARCH  (CM-1)  •  0 
VMM  *  UPPER  ENO.  LINE  SEARCH  (CM-1)  ■  70000 


IU - SYNTHETIC  SPECTRUM  PARAMETERS: 

» mmm  *  WIOTH  OF  TRIANGULAR  SCANNING  C  N  ( UM  )  •  .270 
DLL  -  SPACING  OF  Pis  IN  SVNTH  SpE  C  TRM  ( UM  )  «  .050 


1E--  BAND  PARAMETERS:  (FOUND  IN  MQLTAR) 

v|BE  *  VIB  ENERGY  OF  THE  TRANSITION  (CM-1)  «  667.7500 
vIOI.  *  VIB  ENERGY  OF  THE  LOWER  STATE  (CM-»)  *  667.3790 
Vinu  *  QUANTUM  FOR  the  PARTITION  FN  (CM-T)  *  667.3790 
r.L  «  STATISTICAL  WEIGHT,  LOWER  VIBRATIONAL  STATE  *  7 
t.U  *  statistical  weight,  upper  vibrational  state  *  7 


QUANTITIES  RETURNEO  FROM  M0LEC: 

WC,  T  t  MOLECULAR  WEIGHT  *  44 

A  I  *  ISOTOPIC  AOUNO  =  .9R4I4 

HI  I.V  (EXPLAINED  IN  MQI  EC)  s  ? 

I"I"  (EXPIAIMEU  IN  MOLEC)  =  l.o 

ini'  |  E  x  P|  A  |  NED  IN  MOLEC)  =  .25 

v  ii.m»  I  r  or  fur  SEARCH  of  the  LINETAPE  IS 

I  l«  .  .  f  »U  .  *1  .  F5  4  .  F  I  0  3  .  7  *  R  .  I4X.AI.I3.4X.I4) 


58 


I  Al-V.  IVS  *S  ON  *020  I S 

NU?  MOOFl  LING  USING  Q  QUCNCMINI,  ANO  SP|HE  DAT* 


—  «  U2  —  CeD®O'r0ir'0orN«r- 

BnstOiCfN  -  OO  —  niCO^-UMCfnNNNmrvi/ufcORWtr 
r*fx  —  -  —  —  —  —  OOOOOOOQOOOOOOOOCCCCCCCCO 

oooooooooooooooooooooooooccocccc 


CCDO------ 

COOOOOOOOOOOS 


l  OOOOOOOOOOOOOOOOOODODOOOOOOOCOODOOOOOOOOOODOCO 

[  e(,'r»»ffiNmtoff>DU)w*ir(CNno^-ir^-cn'-[Di^on--vr»nKj-ii3or'^  ir  ®  imp  >» 

J  ^tnf'Br)BTDC-B^P*''NlPBn-’*'f05lDP'®'''ElPP'rffP!CCnr'®islr®Nr.^>,£C 

j  -OOOffioiffnc®o*>‘Ki».iciC(Dif)ifiioirinirinininir.  ifiiniP>iP'(Ctc<c»ciDiC''*»''''iro(rffff>ff' 

t  fxrffxrx  —  —  —  —  —  —  —  —  —  —  —  —  —  —  —  —  —  —  —  —  —  —  —  —  —  —  —  —  —  —  —  —  —  —  — 


UWItJIUUJkUUJWIUUJUUMUIIUllJlUUJUUUki/IUUJWIUU/UJIUWUU/WUJUJILfuJUWIL'UIUJU.'UJUkJU 
o*NtnBOiaiicnKicOffs  rx  ^  -  N-  ia^opipi  -  p.  ®  n  o  s  ir«c*'iT"<or"C©  —  if  c  ^  n  c  — 

PM^DOf^VU3nV^®OC)iri^cr*"Or>UPJP(NC'?®a>rx'N5JLP—  CTCT‘QC'lC~i^<^  —  nf_>rs.f' 

fv-Cr.».pion^iCiiPP>nwf'Nip)(OKiONin''i£iiNpir^iPi-K«''i/'"''sn«n®c'E  -  «?  "pirc 
-*ifl»)T^Bn^iou)N(N|florf'in"'-»ffii/iP,'OOirTinN-»Cioncnif“ir<'Nrv--oic-e 


itflN- 


■  p  e  v  n  r«  •>  -  > 


4P  0 


<  —  —  —  -  Oi  o 


icifmnnNNh- 


■  c<  <r  as 


UitUUIUIUIlilUUUJIUlUUJWWUWUlUUJIUUIUkJUJluUlUWUJUUl^tuUJUJUJkiUUJU.'LUIULLJUJU.t 

»iDnicp«--iD-ei/iu5ptPOifp'U’MP5'f''cnoa'^crD''0-’'-(DOv-o,JOiaiPi/'®iPi 
pnoi)npNDr',nnv  (7>cr;  —  n  r~  o  r-  «  •*(DiPC^cri^>piPOu‘^  v  ic  c  "■  c 

o«j-ic^unBNNOO»Oic®^*,k*n*'ffinooNfp«Of‘n-iODiciOKO^®n-eiCpf 


—  ®  ►»  40  » 


»  in  r*  —  -■  —  ►.  *>  *  r>  in  r*  —  —  —  c 


•  10  tr  » 


n  in  rv  n  -  —  . 


w  ®  «£  m  i 


-  o  u. 


•  2  o 

WOO" 
-  I  a  - 


Oft  ilk 

a  3  c 

C.  -  3 


a  «- 


«  >-  — ' 


bUUUWltJUiWU'WUUUWUUIUJUWUUJUWWUJtiJUWIl'U.kMiJkUbUJlllluuJUiuJikU.Uiy.wu. 

iCpoP<(?MCPi/'iPuklPO-"Onr'®iP’»pi®pr,  t',o,*«Krfl«p-«fNCffr''-"'Np-; 
Wr'lTtP<Ukl/ie»'  O  **■  ■"»  O  —  V  JO  —  <T  i/o  ifi  ©  —  iPiPOOCnniP^  O'  —  iP  c  o  |£  ^  f—  »•  r*  0  O'"  i/ 

NjP0i«p\P-®jJ)f)-OjJ'N-NP)lCDlP-K*Pi<O-l{)rviC''(\Kn-i£lKN-r<ifi0i1D'NC'-’- 


•  (Olflk 


-  -  It  tf  i(;  V  I 


’  aj  Ji 


IP  — . 

JVI  vo 

a  O 

c.  a 


>  ©  -  o 

•  ®  JO  jT 
'  -  ®  r\ 


»  mu>iON 

ctrc'^ 
►  n  o  ^  it 


n»nrkNNr*----B* 


imuoioj£)JOJO®iO©«3iOJOJOiOJO"'^^^"''^"'^-"'0'"''^^»-eDa:«rcE<r<Eff-ccz 

JOOODOOOOOOOOOOOOOOOOODOOOOCOCiDOCOCEOCC 

MUUlUtUIUUJIUWWUMU|UWItMkMUWUUWWWU.'UMIJVUuJUIU;uilliwWWu.WL 

»^®®ccd  —  ▼  in  m  ro  r>  —  ®  —  icopnoaepirvoio  -  0ii^»»c-"0"'^v',O'C^ 
p*mieoNt9iBO*o--ficnppp*»ineeif-isnMfpn-piocvC 
jsOK»NNneom-eiftNOfffNNt''-iCN(Mctp.o"OC"«oircp 

-^p®NiCiPt*nr 


if n«N«  -  —  —  - 


>  e  m t  nn  n  n ■ 


OOOOOOOOOOOOOOOOOOOOOOOOOOOOCOCCOCCSCCCZCZZCCOS: 

®fn#x^^>^vOWOO>OinrxWiO®^riO^“trrv-CT'-®jnOi^ - xr%r--a-^cc-Vl.-otrss--~- 

^m«N®o®wo®  —  ®»rji  —  «N^i©ro  —  —  »OffiOP<eMDtPP'(PpnBnrBr.i,PO''0/.  r-  j£  e:  ' 


OOOOOOOOOOOOOOOOOOOOOOOOOOOOC'OCODCOCSCCOOOCCSCC 
iCno.fp^®fOWOiro«finiCP<nop*-iPO'-p-it^CP''-  —  ^  <s  —  -  „-i  c  cd  ^  u*  cr  ^  * 

►  iTNBnctOiD-®»p<  -  c*  m  ©  r>  —  —  voo*0»N(cp»®iPr»ir>a'r>©r'n®rslkr.  o'  ^  o,  ^  c  e 


—  ®jT—  ®w  —  ©v  —  ▼  -  ®iTNOff'BN  lOiOj/oJOiCtO"'  **.  c  P  C  ■-  n  f  c  c  c-  0  ir  C  »?  **  C  ~  c  ; 

^ooo9>oio>®®®Nf*^®<cciPiflKkintfki/kininini/iiMni.pi/’ioiciCicjctfsK».KCQ;cpp,  p; 

rxrxtNrv  —  —  —  —  —  —  —  —  —  —  —  —  —  —  —  —  —  —  _  — 

OOOOO  —  —  —  —  —  ®»®lE®a>t0©©IO®®®®®OOOCOOOOOOO©OCOCOCCCCC 
PB*-on®N®o»iP  -  o-  o  pi  e  o  N  ▼  iftnrnnniPiPiPiPiPOCCCO^-  ~  v~  o  «r  <^c©j£  . 

iPn  —  ®©«*k^^jfirfkW,'©©^»^®jOr>o^»kri®  —  W"»r'.iNr«r'*iNkC®Of'<*  »  »  n  o  o  -  ccr  c  -  - 


ffi^iriNOB®fNO®®VPiOBIJ®BKNo| 
—  —  —  —  ^000000*0'0'CO'©©©S©C©c 
rv»N»Nrs«rs.r.c«o«<NrN.-  —  —  —  —  —  —  —  —  —  —  —  - 


OOOOOOOOOOOOOOOCOOOOOOOOOOOOOOOCOOOOOOOCOCCCC:: 

oooooooooooooooooooooooooooccoccooccccc  occ  z  c  c  : 


-  MO  f  IP  IO  > 


'  13  w“  x  —  ■ 


59 


200  120 


C  <£  -  if  ur 

l£  l£  iT  * 


eiPNi'CMrOr^  -  oncD^cep-Nffn?  •-  it  tf  ^  p,  ^  ^  r- 
»tflC'',OPtt»/'r,(r^CtcrnK-T(;p-nviriCi£'>‘»>'> 

cr<noiNr>rj^u’)iPcO*'«riEffO‘a'COCO''“  —  —  — 

—  *-<sr.f'.r*rvr.r'<iNr',is,r,f'.f\1r>if>rifni*-ir;.-;r5r;fr!,’'r>',"''-''^r-.ri'~f~ 

OOOOOCCOOOOCOOOCOODOOOOODOCOCOCCCC 


OOOOOOOOOOOOOOOCOODOOOOOOOOOOOOOCO 

OtfiTKC'^v  (Dkptf>’-r>nir>ui<£>®^  ^  n  n  c  ^  r-»  «  n  co  n  n  n  n 

MDBntNernioeiMliMfftOiC-iCOv^fTi-MH  x  *  n  n  n  -  CT 


nCSiNf  IC^IPO  -  rxr>*U'iC,*>*-®<rff'0'Oa'OOOOOCCOOOO' 
OOO  —  -  -'“--rxfNfvfNfNfNfsp^fNPviPvryiNrv.rvnfnnf^nf-nnrjr-.  p, 

r.fMf^rwfs.r«rN.r.r^fvfNrxrxrxrxfs.(xrvrv.ofNrHr>.f'.r«fs.rNrr>f>.fN.rvrvrvrv 


onf'innr^fnriOrtonmomnnrjmorif-iriors.fv.fN.fNrN.rNr^rvrvrv 

OOOOOOQOOOODOOOOOOOOOOOOOOOOOOCCOO 


m  m  ul  ill  uj  ui  i  ul  yj  ui  m  ul  m  p  m  m  ul  m  m  llj  m  m  ui  ui  u i  ^11  uj  m  iu  iu  uj  u  i  m 

—  r~ineDO'^~cTiO'‘CcwnC'C'<rr5—  nicnr^  —  o^u>c^'s'OoDr~otT' 

Olv‘^r)ror>0»'  p»  «  CDO  —  CO''  O'  —  <M  o  [7-  _  r-.  r?  ®  —  c  —  C. 

\c  x  psr^intE  —  rxo»^  w  n  imo  in  ui  ►*  n,  o  ^  x  o  to  x  if  «  to  to  o'  tc  wr 
C  />  s  n  iC  -  If)  <T>  tfl  *-  D  O  V  r»D®tflT'r'N  -  ID  ®  —  in  O'  V  O'  m  — 


OODOOOOOOOOOOOOOOOOOCOODDOOOOOOOOO 


UlUkUIMUJIUUUJUJlJUJtUUIUUIIUUIUJUJUJUIDlUluUJUIU'UJUUuJUUJU 
id  b  it  o  i r>  x  Ov  ic  r  v  ■*  n  o;  -  cc  n  cn  pi  -  —  x  ^  c  «  n  ic  ^  d  o  ®  *-  o 
-  -Nn«(Din®o«»0Kiro®''  ct>ocd^ 

u>  r>  m  —  —  f^o'  —  n)KLD*~nr)r7ino>vni  —  iD*-~ir>inin  O' c:r^'-  it  n  «  to  — 
i£>tftir®a»<N»r>C'kr'—  —  O'^-irtnrx  —  o**rvvf^  —  irio^^eiri^cT'^ 


—  ►-oiBNBBifiifivtnnnNN 


^^^►.^►.»v^»^»«.fv.®tt><DCC>CCcCCC5®®CCilDtClDlOU3cCcC'CDUDir>lOcC’ir 

OOOOOOOOOOOOOOOOOOOOOCCOOOOOOOOCCC 

lUWUUUMUIUUWUJUU/lUUUJWUMUWllJIUWUUJtUUJUJUJWUUJUUJU. 

N»sh.ffis(C’f"‘V(ClOirNOltfl<CN-«N^NVC'nOr<^ICr','''(DIC 

K^iDcr(cO'JO(CcrK(D”“ne’'(T'nn«r<niD(Ci*i-rMCC(rDirt 

►-ODeDOiri®Nn''®r«Nffiin®--iA^'!crffr^'C^Oa'Occc 

■ntBff;^Nr;jiictNOR''“nircntriir>-®if'riOBfif''!n--c^ 


ic  v  p»  n  n  n  •>  —  —  —  —  o'TO^ctnvvnnnrsr^fxr.  —  —  —  —  —  —  —  —  p- 
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D  O  cn  O'  05  K 


nncotnc- 
(C  ^  ffi  N  O'  O'  o 
O  “  fx  B  ®  ®  «£> 


u  i  in  w  w  u  u  w 
05  ^  (£>  O  rx  (7i  (£> 

meo  -  n  v  e 

-  O  If  -  ifl  D  lO 


W  U  k.  - 

ir  —  c  * 

*«■  •*»  tf>  *e 


»*»«e-pnnoi-Ntf*»NtOi-ri»»»Nn»rr*OKei>i--»-MMft»vr)r> 


lfHrf)n«N«NNN'‘  •»  —  "-000050->05®®05®®®®®®*,*R-*'*-'-r'-'-*-*-*'^*~R'r''»-R-^r-*-»-'»'.'~ 
~  —  ~  —  —  —  -  -OOOOOOOOOOOOODOOODOOOOOOOOOOCOOOCC: 

WWWMUJUWUWIUIUIlIWUUIIUIUWIUtlllUWWtUUjkJkJUJlUUtUUIUUkJUtJUJIUWUJWIUWUWIUUUJk 

n  —  ©*-fxeD»rff'Otf,'<N»8  in  o  O'  cmc  »  tnN(ji-oiroic-Kopino'»'k'Mf-o-o-if'o  oecn^cocc 

nNs*ipiciDiooiicof5efffie»0'MCO'fcNnnoi'-n-ic*'iconKfl  ic  -  k  o  ?  nnNfficrif-cr 

^tifHM,)ioonrnfiNKiCMf^NeB-s^ttf»(CaDO«-P)f©cicn-ONf«.-inKOin»nintfr  c 


t^*'n®-r)mcri''NTic-riB-nic-»-ixn«rir*)SB--»-^-p,ntiftir*n^Tnnrvr.NNr,f. 


a  a 

IU  uj 


t/i  \r 

*  • 

rx  fx 

I  2 


u  u 

V  X 


*  C 

a  ^ 
c 


a  w 
c  I 

w  - 


c 

o 

c 

CD 


2 

>c 

O 

O 


IT 


3 

x 

o 

c 


*0 

o 

tw 


in 


n 


IPCf»OP»MNfi<f<»»-000'ffl0>®*®®®BBJCD>>^f'''N''KKKK»'KKlDICr-NN»»KKK».».K 

~  —  —  —  —  —  —  —  —  —  OOOOOOODODOOOOOOODODODOOOOOOOOOOOOCC. 

HjUIUU/WIUIUlWWUWIUUkMUWUUWtUIUIUWIuUWUWUJuJWUMtJUJIUWUlUUJUJIUlUUnuUWIUtbk.. 
—  —  N®tcOiPO'B,'(j'f,)r'^T“  rx  it  n  cf>  -  0  r~  O  —  cctf'Ccoa'C'O'^iPtrcr  —  fx  ®  o  ^  i£  n  m  •»  n  r  r. 
OnO''CiOtf'N,'IDNKCDr<|£>niCKDiP-',--PiP‘Nnr>ir,  ^(DififiClfnK'vrkNiriDtlErHDN'''-- 
if'fvi/if'P'ico'fxnicn-tfnoiCinoiD''  O'  —  no'^-nn®  -  ^  o  <c  r-»o«ooioor->r>o»~©'®*'-r'r>c: 

—  *Nin^*“r5^  —  w— fxiri  —  —  Pxr>in<r^C'  —  —  —  —  cxfxrxr>r5«tc»~cc^  —  oiBDtDin^r^,'»^xjr. 

mwP5r5Pirxrxrx»-«'^ooc>ffl®ct>©iDCDiD^'^*^*^‘»~^'t|*-*^^»»»-^»^»*'»«*iCiDiDtOtDmiDiDcO*x»,'*,»^-»~*» 

—  —  —  —  —  —  OOOOOOOOOOOOOOOOOOOCOOCOOODOOOOOODCC” 

lUHjiuiuwiuwiuuiuuuwtuiuiuiutuitJbJiuiuWkniniiwwii'iuiukibJUitMuikJUJUujuJiuuJiwujtuwuiki. 

«o«r.-nicicinoN-NO>*'0(M,»M*'nO^O'*ninNO'aMcn-inc'OiicttOMcnMn-NO'iCiff. 

mNCir'Ot(MMrniooNOiNOicsMfiKnnoMDNN^-tQtticoNn-DtrO'ir'^fl3ffiO'ir'v^-f»r.' 

noteN(POOr>-»mocr:BOO'no-«-fN«-icDiP»iCMEn-icr.»^ooBion-NirNntfi 

»  »  —  r»p-  —  «  ®  —  —  *  —  —  n  m  r*  tr>  —  —  f»rxnnftmir®K^-*-~fxN-^  -  -  ci  O'  o>  ff  c  •* 


rif  nnnf«ri  -  —  000'®®®®®®*'*'^*^^*. 

•J-  * - - —  - -OOOODOOOOOOOC 

m  m  uojumiuujuivkii^toi  iu  iu  w  ui  in  m  uj  u  ui  w 
fx<x^tf)®irvcn»xrxrxln®rx-cc*x®rxo-®rxrx 
-  -CD^NCMOO'O'C-ir'IBOO 
*n  cr*  *  MCOf«t  tPncrHDr*o'ico^nf*NK  «  - 


cn-r»e^ir>-c»c-nff-n(00'--Nr«.n^ 


0000000000000000000000000  = 

WUJkJUIUU/UUUJUJUIUUUUJUJWUJUJWUJWUlUJK.. 
OlCD’0'm-C''''«JOiC^^''^(r-(Tin  -  05  r»  ».  f,  ^ 
tracfO0irunu'ir-iMT'-iCf’irN  ®  in  o  it  MCif  t  -. 
0'‘f'0'Oo*-fxniroifMtt  n  c*>  ^  ®ci(eo'*->'.i£^ 

^  iTiC,'Di-«----rxr.nr'«  «  n  n  •■  —  —  —  —  — 


OOOOOOOnOOOOOOOOOOOCDOOOCOCCOCCOCOCCCOOCCCO 

moiroinoicoinoir.  oiroicciroircif'Oicoicoif’Oinc  u*c  \r  c  u-  c  i*  i  it  c  it  c  s 

0»i*NM,irHOl,5|('lClC^''BOO’irOO''’'Nr«''n«  ^ifliTiiClC''XBOPP'0O  -  — 


rjnflnnnnrjrnnnnnnrnnri^to  *»  v  ^  ^  v  n  tj  r-  *  *  r  *  r  c  ^  u-  c» 


c  c  c  r 

r  t  r  .' 
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\ 


—  -  •'^NNNMDnDnw^WinifHP 
OOOOOOC>OOOODDOOO-^-j'--------^«J-  —  *J*-  —  —  —  *p  —  —  -  - 

M  j  ^uujluujyJliJiuiu  4/  WWWIJWtUIUkLJWIUtUUJ  yj  |y  |y  yj  yj  yj  yj  yj  yj  yj  yj  yj  yj  y  I 

n*fB*N*-effin»Mi»nti^enNNN-'D00Dtf'O''NtMntiMDn 

NOT*Ci8iC>ONe-ONjiBD<nPO-Nn*C)Br)a'-nBci-sBor<*- 


ooooooooooooooooo*--  —  -  -  —  ~  —  —  —  —  —  —  -  —  -  —  - 

vjwuiuiuiuwwiuwiuit/iuwiuiutuitiiviuiuiuwBuu/UJyjiuuitjtuiuwiuu/iuu 
®  *  *  tn  —  w«>»o®»r>tco*f».»'»»-0*of'«  —  r>wif'<*-©cr»0«Dn®^®»'»r>0’T 
Q^iM_f)NKV.lpinVij,VNtic«icnniroBi&fD«'’009i*Nin«ff>ff 
■  ttNODBs*  nuntfoo^  BtOBKBnNmeievniNBNoOBMXBN^ 


•*  «-  —  -  UtNB©fnf'i»'»  N»N»®fM**Bn»«tN“  <>  r>  r*  —  ©  r>  —  ®  r>  tc 

K^NK^NK^BCf)B)i)cit)ff1ffi(jiciDOOD--*-^Nr«nnr)^««vrNr!a: 
OOOODOOOOOOOOOOOOOO--***---  —  ~  —  - 

kiiuniiuiilluiuluiu»illiHiliUiukilUklliJliikliuitiuiuiaiuiiiiunniii|||iyn)niK)|^n;n) 

■  **--oinoin''Be*-ni6iPoo)n®Br)NONNBioiov»n"OOif»'' 

—  irioo«oioffiBBnOKN<oo''K 


f,Nr.-,.---(HKinfr)N-Birr>-oi*M-ip(N-if'N-inN-Nf)-Bn(c 


K^NNh.Nr>KKKKN©«®ii«jo©©©c>oOO--  -  e^f^r>0»n*V^4n«C 
OOOOOOOOOOOOOOOOOOOOCJO----'----------^- 

UltMtJIUtUIUUlUILWBWIlJIl/WIUIUIUIUBIUWWIUUIUtUIUIUWlUWUUUUWUi 

©<r»cii£>^©irno^NOi>Bffi^nBn©irfv»vOBr-NnB - ic--r)Om 

NfiBO)r)foonB®-»B-“nKN-BB-oninNriripOBN--f)K'C' 

—  —  -  ©©»»->--*.i»>»'»-in«>i-inr*-*-^r>  —  ©  r*  r>  k 


eO^NKSKNf.sssKNM-DBBBO'fftTipiOOD 
OOOOOOODOOODOOOOOODOOOOO  —  -  - 


NNnnnTBBin 


wwiuiuwtt/WMtuwwwBiiviiMUiiMuiuwiuiuiutvuiuunuwiuiutuiuuivwuy; 
-nr<©©r».®©©r)©v-©^rif^nn--©©©fv^-.®F.f-)^»-»-r>»f>.»nr7ff) 
o  —  ©  —  ©  o>  0>  r«  <n  «r>  —  ©  ®  ©  «  -  0-  -cioii)on<i-'-NiflninNtc»0''  *n 

n-hBB0)Ofl«r)Bfffii0'-*ooifiinBM,)Nff)KNfninenfif)te>0)etf. 


--0s^yj»r>ir«r>r5fNrv  —  —  —  «jiow«x-®w^  —  irtr^-»rr«cr>n-©fN.q3fN0D- 


OOOOOOOGCOOOOOOOOOOOOOOOOCOOOOOOOOOOCC 

if'OiroiTCirOiroiroinOirciinOinoino^DinoirOipoiroinoif'Oinc 

*  lf>ir»lCtO*-r>.®CD(y>©OC«-  -  N  rv  r>  r  ? 


tOW>lP©U^t^V>tPtO(OlCl£©l£iCl£©©<fi©©<C©©iO©t£U>©»'*»»»p«-*>-K’‘.r»r-> 
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45. 


I  nil  3:  Output  From  Sample  Run  1 

Subsidiary  program  output  from  Sample  Run  1  begins  on  the  next  page. 
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20BEO7  740E 


It.U^ikWII.Ibk.Wiuwlkli.IbWUlUWhblkUiWWWk.kJUUKJVlt.bWUUjWWIUluli'WtbWl^llWtbikk.ulubk'llhii.it.i 

r»(rfrtfCp'tf'0\to(r|»c^08:iOK'^'-Nmca'if-^o^{rNO'^o«if,ff,'''C,^f'#  —  n  —  r*  it  *  «e  —  *-  «  «  <■«  p  -  ••  i 
infMr»o:o<r^c^tt!<Eff'D  —  rsifi(C-ircr^^wirN<ccro—  -•-  off**-  *r«iCTi»r  —  nr>r-CvC'-'~0'0'*'  *  —  C  *  t  O  -  -  Mr  r  > 
—  —  ^  -  —  —  —  —  —  r«.  n  ~  n^r'©*'-*©®®''-*-®©©©©'--  «  > 


ns  yj  ns  us  ns  n.1  us  ns  ns 

o  m  *r  r*,  ^  -  n  -  NOC'iCiAi/'enasno«NNtiOnr'Di  e-nnNO«KiPMnBN(ME'  cr  p>  *■'•  *  tr>  r  r>ner*®-eff''v''  &  ~ 
O^Of*©®*.©  —  *  ©  »  —  f'i©®Of'«'C©r-«ff'C>0~  tCOirrnBnBr'BOC*-  -  rMNfynnnt 

►*•  —  —  —  —  Nr<nntif'eKe?i'-  -  —  —  —  —  f'tr-.iNf'.rjnrjn^ww'fw**©©©©©©©©^^®®^®-  —  -  --•*-•>  -  -  - 


O  O  o  O  V  O  1 


)©©  ©©©««©<«» 


JIUtflMIMIL'Ium  m  HJ  Ml  |fcj  UJ  yj  y  ^i,i  yr  yj  ns  hi  y  yj  |U  ^i  m  gj  ^  ui  yj 

«  ■»  «  r*  *  ®  n  —  icasNirirnBr.snBjnenB-irNaie'oe''''' 

rnCififfii'^---NNNnnftinriciCh*K®e®«)ecittiftN 


f  iCi  -  ON»f'  -  ©  ©  *  c*-r>vn* 
—  m  w  *  r>  —  ©  cr  —  v  ©O'®  n  n  n  f 
r-  ©  I —  r»—  t*r 


It/  lit  W  w  W  b  V  u  u  k/  U1  k  u 

ncrO(ft»rn(T.  cncoo^ 
■-  *  n  ir  *>  n  »  r>i  r-*  cr  --  ©  *• 
rv  n  r,  •-  —  r>»—  0'rN*--ir' 


UW^kJUWUtUUJUUJUJU  US  WWWlUWUJI^WWJtUkJIUtUWI^I^WUJ  !&/  ©  ©  ©  ©  ©  ©  ©  US  UJ  uj  hi  \ii  ©  “f  V*  n 1  nJ  m  ^  i^i  hi  ^  ©  nt  n.  U1  Vi.' 

—  r>  ^  »  <r>  in  ^  c  «  ^  ®f«  —  n  a)  k  o  ip  ^  ®  —  ®r^®-~r>®0'^r  0®^®Or)tteffir)OtCtriofmintf«>''(DO'ff'ffiOtro»‘  t  it  o  m 
KWKM^e»f,tf)0r,tKon®oin(r*(ynr'0®Nftir>-''0'*-NfNonnr)n»irtf'»''«Doto-r*n^iriCf'pia'--Nn^s 
—  r^rxri^^®r~tc  —  —  "'■^n«rxrNn<^r)^^^®»C^r'.®^^  —  —  —  —  —  —  —  —  —  —  —  —  r'.r*r«r»r»iNrwr^iN(Nnfnmnnr^r'; 


(CC»iTNno-^®r*cr»*nnN<N*'--DDD9>0'CnffiffitoBBl)*‘'‘^»‘C)'>'t)Bff'Dffi-O-NOr^*nnrvtN^irr,  ccr. 

OOOOOOOOOOOO—  —  —  —  —  —  —  —  —  —  —  —  —  —  ~  —  —  —  —  —  —  OO-  —  -  —  —  —  —  ~  —  —  —  —  —  —  —  —  —  —  — 

OOOOOOoDDQOOOOOOOOOOOOOOOOOOOOOODOOOOOOOOOOOOOOOOOOOOOOOOOOCOOD 

ui  u  lu  ui  m  m  in  uj  uj  mi  in  ui  uj  ui  hi  in  LJ  ui  yi  in  ui  i  '  ill  ||i  i^i  yi  hi  i^i  in  |>i  ki  ||i  m  hi  i|i  in  ill  ui  m  u>  iu  yi  u  Ui  yi  Hi  u,  yi  y:  y.  in  |!i  u  u 

r»(«-(roniroif'>-»Nino,»0''»N®^-io^Bino>{T>CBir>eiOOo>nef'N-c»'0-^0'(Oif'Mt£>if',‘ifUDicnBiCvaiffiirr 
©  n  ?ffiinatcrr«B©^-0“nifi€ieo-nin«)''®0'{n(j'CB®Nifn-©'r  o  cr  -  ic  ^  ^  *  ©©'">Of'»'~Or~  •  cn  •-  —  in  r.  «  c  i£  o  n 
—  —  —  r>«N*v©®»-a>--  —  —  —  —  —  f'»fMfvf>ior«r'<o«r'ir<«r»r«<*r*r«r'.  —  —  —  ©  pi  —  n«N©©«*r-©  —  —  —  «f  o  f'*  r>.  C 


uitiiu^wwu/UJkimiiJu/iuiiiMJifcikJwuJWWuiutt/iiJtiJiiJUJ  us  us  ns  u  us  Us  ns  iu  ©  hi  ^i  iii  iii  hi  k ii  iii  iii  iii  i^i  hi  iii  ni  ^i  ■»!  yi  Li  i  u>  m  n.  ^  ^ 

c-^NMC“«ttinnr<r,'riPOf'in^(flBON'«  in  n  (r  ^  ni/'r-  fi  O  n  ^  mr-oio^oni^ioo'  -  nmiconiinK(^r.t  ®®  —  n  tr  *■■■  ®  c 

O'  —  —  —  *  ~  no^irtDr^®a'  —  —  —  —  —  —  fNc«r<rxf>,c*nnor>*,,5v^*vw^«7,cir>tr>©ir)©©©©©  —  r^  —  »-  —  ®a,ii.®ec‘crcrc'- 


OOOO  —  ~  —  —  —  —  —  —  —  —  —  —  —  —  —  —  —  —  —  —  —  rsi  r*  r*  —  ~  —  —  —  —  —  —  —  ^^>rv~,NjNMfN(vr.NNr.rvr.NNr,Nr>f,N  -  -  r\ 
OCJOOOOOOCaoOOOOOOODOOOOOOOOOODOOOODDOOOODOOOOOOOOOOCOCDOOCCCCCCC 
UUIIulUWluiulblUluWIUIIJlUlUlllWWUWUUIuUllJIUllJlillUWWWUlUIUIUkllUUlUMJUjUIUII.'MJlulklLiJuluUJIlilb.llJlkiU.IUbWWL.^ 

*  omn)()ineir.Nicio*'tMini)ic  -  o  w  a>  r-  r>  o  —  o  —  —  r>  n«  ®  ®  *  in  o  c>  k  cr  >«  c r  v  -  itnnifioP'O*’  c  -c  -  —  -  a  c  -  c  i  C 

it  ■«  inaH-®icr,^itrn©nii!nffi^-e-tc-iriBDDDaiC-inoDcr[T'''inr>Df»n.~K  -  mto/'ionininnoo^in.  irr*«  a;  w-  c. 

©,TfTi-----r,r«.C'.nt'5W*if>tn©»'.^®®o,a>cr’-' - ©i®c»Bf*©ir«f'>r>.-ir-0'~r--rNf'.r'<»NrMn«r'.r'.r^rN-r>.--r.C'»r' 

®®®r-  —  ©©©C®®©®©®©®®©©®®®®©®®©®®©*©©©©©©© 

OOOOOOOOOOOOOOOOOOOOOOOOOOOOC.OOOOOOOOOCOODCOOOOODOOCCOCCCOOCCCC 

lUWtHWUWIUIUIUIUIUIUWIUIUUWUlUkiWIUlLllt/UWWUUIUlt/b'IUIUkllUIUIUkJlilUWlUVJIUtUU/IWIUtUWIUIliWUwiuUiliilUllJWk 
C7'rv®©®®^0'^®0^®©»NOe'®*,«.  —  *-  —  —  »®triCrtT'Oor-  —  ©0ir>*©e>f'<«®*N®O«CDr'*©Owcrir)  —  —  ©<rw®rv©cv<LiN 
—  noON«NOiNmo'Mnan''Of«Mpo»®MCDvOioo*'  -  —  r*rxfvr>r>»->*i»ininiri®©r^r*r»®®cr(r>cr'00~-f'.r.r-,r- 
©^{^-.-  —  .-.-rx^r^rDmm^wir©©®©  —  r»  —  ®®{j>ff,(*  —  —  —  —  —  -  - -  ■ - -  - - - 


■o®o®(jicrCO“- 


rtrirwininintntntnininin*  1 


—  —  —  —  —  —  —  —  —  —  ~e*r*r*r*fur*csrur*tnr*r*t>ir4ryr>ir*r*r>*r*rir*r>e*fur*  —  ^nnrNrNrvrNr^fwnrN'^irN.rNfNnr^r^r.r'irvo.rxrN.r^ 

O0OOOOOOOOOOOOOOOQOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOCC 

lUkJUilliWWIUWUJWWlUIUIUWUllJUlUlt'IIIWIUUWIUlUIUUtUIUWWWIVIUWIi/luWU/Ull/UUIUJWUUUJaiUllUkJWIillUIUUiUJki,.. 

OoaC'irr'iv®—  dir'.f.fNtrvr'*®©  —  —  —  vniN©®©oo©*‘'**^©r»©pi©—  r-OCT^O''-©r.C>0©in>tri©0—  r»rHC«»or-/r 
O^o-Oin©©©^  —  i-**  ©  —  ff>  ©  rs  *  ©  —  ©  01  ooooocrNinnDf,*D'*oiOiDk-NininnffiBPiOioiO“»  a-.  iDc3®p«  ni^c 
r*  r->  r>  v  *j  iomK03ffi*---'-"--f,«nin<rNMP«r«nnnn(,)rNiMriNr»--~en-nr«»nicnNior.sr.r-KNe^ipst  v  k  n  mi 


OOOOOOOOOOOOOOOOOOOOOOOOOOOOODOOCOOOOOOOOOOOOOOOOOOOCOOOCiOCCCC 


iWluWH/WIWUJUjkJUJU/llilUWIUUblUWWIUiuWUUU/WUJIUUUIUllUtllUliMlIiutblUWUJUUIUWIUIUUkMIilunuiuiiJiLiiuuJuMuwiL.' 

^vtn(Ti--mr'tO(ce(,io^nON'rD»*t-r'^-®t-®^-r-fO'£'-e«-et"ef-Q:iri-®irHNCi(nr,(rii)rvjiiir, 

nen^^-Kr)tricn[jiO-Mri«n«r»iiMc»r'(c«)C'DO-NMn*»ir«ciC*'''ic(jicnD~-r<^ri^inirc''KEff'1cno - <>r. 

- —  —  —  ~  —  -ririMiifiiMNNNNNrMNn^Nnnnnnnnnnnnnrnritr^  *  w  w 


irciDr'NBffipi* 


c*<N*>nw*©©©©r>-®«<noO  —  r*fNonwwtn;'©tnintntn©%r>n«  —  D  «  © 

-  —  —  —  —  —  —  —  v  -  _  —  —  ^-ivNr<riMsrir<NNrir<r«NNr<MNNriNri*-- 


O  r*  ®  r>  —  r>  %  n  n  i*)  n  n  n  -  n  a 

nr'c-mrjonnDmnnonnfN 


n  in  n  r. 
o  r>  r,  r-. 


»>r^tnr«niniftininif)in»nin 


tn  *  *  tr. 


n 


m  n  n  n  r)  r>  r> 


nnnnn©nnnr>n 


nnnc-.  nnnonnoorjnnnnronnn 


n  tr  v  n  r>  r 


0'-®«T'©"^  «  m  n  n  “■  o  O’ 
»  f  nnnnnnnnnnr* 


©  IP  ^  r>  f**  -»  0JMC''Bin»nr«-0(?’ 
Nr<NNr«riri--“-^-»»--« 


B«  n 


»  r>  ©  ®  ®  o 


*n  *  &  © 


in  ^  in  1  a-  c  c 
—  <%  rw  —  r>,  r  - 


«  V  iT  »T 


ac.aa.G.c.aa&&&&&& 

OBirnDEinriOlO^O^t 

n<  '«  r  «  in  n  ic  *“  ®«  iji  o  o  " 
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A 6.  I  nil  6;  Oulpul  From  Sample  Run  I 

Diagnostic  program  output  from  Sample  Run  1  is  given  on  the  next,  page.  No 
extraordinary  conditions  were  encountered;  therefore,  this  output  is  confined  to 
listing  headers  and  card-images  from  the  four  input  files. 
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V7.  I'ttil  7:  Output  From  Sample  Hun  1 

The  unit  7  output  from  Sample  Run  1  is  given  below.  Note  that 
the  information,  although  not  given  in  the  same  format,  is  the  same 
as  that  given  at  the  end  of  unit  4. 


CXXXXXXX  BAND  RADIANCE  - nlTE  OUTPUT 

CC02  626'  onoi  00001  A - 85/09/04  .  OB  .  53 . 33  . 

CC02  636  01101  00001  A  -  85/09/04 .  08.55.01. 

CC02  628  n 1 1 0 1  00001  A  -  85/09/04.  06.55.53. 

CC02  626  02201  0110'  A  -  85/09/04.  09.21.02. 

*70  .050  um  limb  100*:  hts  m«)  =  70.00  75.00  bo.op  bb.oo  90.00 

4  3.1718-06  1.5148-06  7.420E-07  4.029E-07  2.7988-07 

13.050  4.2428-15  4.3568-15  4.S31E-15  4.733E-15  4.9658-15 

13  mo  3.9928-14  4.0708-14  4.2318-14  4.421E-14  4.639E-14 

1.1.150  1.4448-13  1.4468-  1  3  1.5028-  1  3  1.570E-  1  3  1.6478-  1  3 

1  ;i  .  200  3.7868-13  3.6528-13  3.7788-  13  3.947E-13  4.14SE-13 

13.250  8 . 6  7  0  E -  1 3  7.79  1  8-  1  3  7.9968-  1  3  8.352E-13  8.775E-13 

13.100  2.0758-12  1.5938-12  1.6008-12  1.66BE-12  1.754E-12 

I  :t  350  5.7348-12  3.0968-12  2.9558-  1  2  3.D65E-  1  2  3.2228-12 

1J  400  1.4198-11  6.058E-I2  S.229E->2  5.359E-12  5.630E-12 

11.450  4,5178-11  1.3356-11  9.3788-12  9.290E-12  9.730E-12 

U  500  1.3828-10  3  >688-11  1.6878-11  1.565E-11  1. 6268-11 

13  553  4.4228-10  8.8028-11  3.3298-11  2.702E-11  2.750E-11 

13  600  1.325E-09  2.5218-10  7.1738-'!  4.734E-11  4.6.68-11 

13  650  3.6488-09  7.0978-10  1.683E-10  8.6B5E-11  7.8528-11 

13  700  9.2228-09  1.9798-09  4.3248-10  1.740E-10  1.395E-10 

11.751)  1.961  8-08  4.8078-09  1.0648  -09  3.599E-  10  2.521E-10 

i.l  B0U  3. 6988-08  1  0688  -08  2.6318-09  B.189E-10  4.9628-10 

II  850  6.0978-08  I  9898-08  5.5628-09  1.7468-09  9.6268-10 

l.i.UOfl  9.2888-08  3.3538-08  1.0758-08  3.694E-09  1.9708-09 

13.950  1.3128-07  5.0728-08  1.8028-08  6.8248-09  3.714E-09 

J.OOO  i. 7508-07  7.1378-08  2.7698-08  1.1638-08  6.703E-09 

14.050  2.2418-07  9.4338-08  3.91'E-OB  1.792E-0B  1.095E-D8 

14  100  2.7868-07  1.1908-07  5.179E  08  2.579E-08  1.680E-0B 

14.150  3-4028-07  1.4648-07  6.517E-08  3.471E-08  2.392E-08 

14.200  4 . 1 028 -07  1.7708-07  7 . 9308-08  4.430E-0B  3.224E-0B 

14.250  4 . 8908-07  2.1278-07  9.4918-08  5.435E-0B  4.1178-08 

14.300  5.7968-07  2.5438-07  t. 1288-07  6.490E-06  5.052E-0B 

14.350  6.7998-07  3.0158-07  1.3368-07  7.616E-0B  6.002E-0B 

14.400  7.909E-07  3.5428-07  1.578E-07  8.B31E-08  6.952E-08 

14.450  9.0958-07  4 . 1 09E-07  1.853E-07  1. 0178-07  7.9128-08 

14.500  1  0318-06  4.6868-07  2.149E-07  1.160E-07  B.B43E-08 
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1-4.550  1.  1505-06  5.2666-07 

14.600  1  . 25  7  E -  06  5.803E-07 

'4.650  1. 3576-06  6. 3216-07 

14.700  1.5146-06  7 .  1 35  E -  0  7 

'4,750  2.0506-06  9.619E-07 

14.800  2.596E-06  I.209E-06 

'4  850  3.2176-06  1.496E-06 

14.900  3.8626-06  I.798E-06 

14.950  4.4276-06  2.0596-06 

15.000  4.3846-06  2.046E-06 

16  050  3.979E-06  1.8B3E-06 

15.100  3.491E-06  1.  682E-i.‘ 

15.150  2.8596-06  1. 3936-06 

15.200  2. 303E-06  1.1516-06 

15.250  1.8816-06  9.742E-07 

15.300  1.8286-06  9.5296-07 

15.350  1  .  7  62  E -  06  9.216E-07 

15  400  1.767E-06  9.3266-07 

15.450  1.6426-06  8  6326-07 

16.500  1.4746-06  7.6556-07 

16.550  1.301E-06  6.6296-07 

'5.600  1.1136-06  5.5396-07 

15  650  9.3426-07  4.4646-07 

15.700  7  8296-07  3.6996-07 

15  750  6.8166-07  3.2366-07 

15.800  5.9026-07  2.8426-07 


I'j.UOn  5.0966-07  2.5066-07 
I5.9U0  4.3996-07  2.2056-07 

16.950  3.82SE-07  1.9336-07 

Hi. 000  3. 3236-07  1.6606-07 

16  050  2.8566-07  1.3846-07 

16.100  2.4146-07  1.1176-07 

16.150  1.9816-07  8.6406-08 

16.200  1 .5666-07  6.382E-08 

16.250  1.192E-07  4.S16E-08 

'6.300  8.642E-0B  3.039E-08 

ib. 350  6.0176-08  1 . 974  E -00 

16.400  4.0036-08  1.2236-08 

'6 .450  2.513E-0B  7.1166-09 

>6.500  1.5116-08  3.993E-09 

'b. 550  8 . 69 ' E -  09  2.168E-09 

■6.600  4.7066-09  1.115E-09 

16.650  2.3896-09  5.4026-10 

16.700  1.2096-09  2.637E--10 

16.750  5.9326-10  1.250E-10 

1 u . 0 00  2.7646-  10  5. 6286-  1  1 

16  1)50  1.2116-10  2.3976-  11 

1 1. .  300  5.4186-11  1.0526-11 

I  •  . 950  2.3776  -11  4 , 5636  -  1  2 

17  0110  9.9536  -12  1.9086  -  1  2 

' 7  . 050  3.9376-12  7.6B1E-13 

'/  100  1.5576-12  3.1716-13 

17.150  6.3276-13  1.4166-13 

I  ! . 200  2 . 4626-  13  6 ,  3  1  IE-  1  4 

17.250  8.9926-14  2.7316-14 

17.300  2.9056-14  1.0736-14 

'  7  .3 5 0  8 . 67 3 E  -  1  5  3  .  7  1  0 E  -  1  5 

17  -irio  1.5286-  15  7.2986-  16 


2 . 459E-07  1.313E-07  9.7786-08 
2 . 759E-07  1,4636-07  I. 0636-07 
3 . 052E-07  1.6096-07  1.1436-07 
3.4856-07  1  . 8  3  7  E -  0  7  1.2806-07 
4.7696-07  2 . 5B5E-07  1.829E-07 
6.0396-07  3.3456-07  2.399E-07 
7.471E-D7  4  ,  1 6 1 E - 0  7  2.990E-07 
8.972E-07  5.01 0E-07  3.6016-07 
1 . 028  E -  06  5 . 77 1 E-07  4.IS8E-07 
1 . 020E-D6  5.709E-07  4.0646-07 
9.3546-07  5.1466-07  3.6066-07 
8.366E-07  4.5346-07  3.1106-07 
'.941  E-07  3 . 730E-07  2.5326-07 
5.7B3E-07  3.0786-07  2.049E-07 
4.935E-07  2 . 593E-07  1.686E-07 
4.8676-07  2.5976-07  1.7146-07 
4 . 723E-D7  2.558E-D7  1.7156-07 
4.7796-07  2.6106-07  1.7516-07 
4.3736-07  2.3986-07  I.619E-07 
3.8156-07  2. 0986-07  1.4246-07 
3.258E-C7  1.B06E-07  I.236E-07 
2.696E-D7  I.5I4E-D7  1.04IE-07 
2. I5BE-C7  1.224E-07  8.440E-0B 
I. 7916-07  I .0156-07  6.884E-08 
1 . 60 l E -  07  9.03  IE-0B  5.947E-08 
1.429E-07  7.B74E-0B  4.978E-0B 


1.263E-07  6.6786 -OB  4.012E-0B 
I.090E-D7  5.44BE-DB  3.0856-08 
9.2256-08  4.310E-0B  2.294E-0B 
7 . 5  1  1 E -  08  3.25BE-0B  I. 6316-08 
5.86BE-08  2.35BE-0B  I.113E-DB 
4.4086-08  1.6436-08  7.376E-09 
3.1546-08  1.0966-08  4.73BE-09 

2 .  1 6 1 E -  OB  7.0B2E-D9  2.9B4E-09 
1  . 4  23  E -  OB  4.4276-09  1.8336*09 
8. 9266-09  2.6476-09  1.0B6E-09 
5.455E-D9  1.5616-09  6.4226-10 

3 .  I  806 -09  8.840E-ID  3.684E-1D 
1.7496-09  4.7646-10  2.038E-10 
9. 3736-10  2.5306-10  1.125E-10 
4.9166-10  1.332E-ID  6.2216-11 
2 . 4 58 E -  1 0  6.7516-11  3.373E-1I 
1  .  1 63 E -  10  3. 303E- II  I . B 1 OE-  I  I 
5.5076-  11  1  . 685  E -  1  1  I  . 0 1 8E-  1  1 
2.640E-II  8.6626-12  5.800E-12 
1  . 207  E -  1  1  4.8476-12  3.304E-12 
5.3576-12  2.30BE-I2  1.900E-I2 
2 . 4  9  9  E -  1 2  I.249E-I2  I.  1056-12 
1  .  I  0  OE -  1 2  6.0106-13  6.3596-  13 
5 . 566E -  I  3  3.7066-13  3.6096-13 
2 .6346-13  2.0036-13  2.0IIE-13 
1.3046-13  1.0986-13  1.1256-13 
7.1736-14  6.5476-14  6.7926-14 
3 . 8  7 1 E -  1 4  3.7266-14  3.893E-14 
1.9608-14  1.9526-14  2.047E-I4 
8.700E-l'5  8. 8436-  15  9.293E-15 
3 . 2 1 5E -  1 5  3 . 2996  -  1 5  3.469E-I5 
6.5776-16  6.7846-15  7.137E-16 
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AH.  Command  File  for  Sample  Run  I 

The  following  CYBER  commands  access  permanent  files  (containing  the  NLTE 
binary  and  the  input  data),  run  the  program,  and  copy  the  results  to  a  line  printer. 
The  commands  following  EXIT  allow  for  abnormal  termination. 


JOB. . . 

USER. . . 

CHARGE.  .  . 

COMMENT. 

COMMENT.  NLTE  SAMPLE  RUN  1  AUGUST  1985 

COMMENT.  C02  626  02201-01101  HOT  BAND  1 5UM 
COMMENT.  ADD  SYNTH  SPECTRA  FROM  NU2  FUND 'LS 
COMMENT. 

GET, BIN=NLTEBIN. 

GET, TAPE1=TC3TP12,  TAPE2=A0402S.  TAPE3-L020010.  SPECF-SAMP20P. 
BIN. 

COPYCFf  TAPE4.  OUTPUT) 

COPYCF ( TAPES.  OUTPUT ) 

COP YCF  <  TAPE6.  OUTPUT ) 

COP YSBF ( SPECF ,  OUTPUT) 

EXIT. 

REWIND! TAPE4.  TAPE5, TAPE6,  SPECF) 

COPYCF ( TAPE4,  OUTPUT ) 

COPYCF (TAPES.  OUTPUT) 

COPYCF ( TAPE6.  OUTPUT ) 

COP YSBF ( SPECF.  OUTPUT ) 


Appendix  B 

Sample  Run  2:  Single  Line 


Appendix  B  contains  Sample  Run  2,  in  which  the  limb  radiance  due  to  a  single 
ro- vibrational  transition  in  one  of  the  101  combination  bands  of  COg  near  2.  7/tm  is 
evaluated.  Four  viewing  paths  with  tangent  heights  between  70  and  100  km  are  con¬ 
sidered.  The  line  chosen  is  one  of  the  thickest  lines  in  the  band.  The  job  ran  in 
2.  6  seconds  on  the  CYBER  750.  Devault  values  were  used  for  all  program  param¬ 
eters.  The  errors  for  the  radiance  (determined  as  in  Appendix  A)  are  0.  10%, 
.057%,  0.06%,  and  0.41%  for  the  four  viewing  paths. 

Bl.  I'nit  1:  Input  for  Sample  Run  2 

'C02',  626,  '10012',  '00001'.  ’R’,  14 
70.  100,  10 
/ 

/ 


PRECEDING  P^OS  BLANK-N0T  FILMED 
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B2.  I  nil  2:  Input  for  Sample  Run  2 


The  beginning  of  the  file  defining  the  atmospheric  profile  used  for  Sample 
Run  2  is  given  below.  The  file  contained  data  from  40  to  160  km;  only  that  at  70  km 
or  above  was  used,  except  that  the  input  option  was  determined  from  the  40-km 
data.  Input  option  3  was  used  in  this  case  because  the  information  in  fields  3-6 
consists  of  number  densities. 


CA1701  ATMOS  PROFILE  06/10/85 

C  ALT , TRTMP , NL , NU , NO , N1 - DATA  FROM  VSIM,  IRR FORMERLY  AT101G1 


CC02 

626  10012 

00001  40 

-160  KM 

40 

251.060 

. 25034E+14 

. 25415E+05 

. 25034E+14 

. 10925E+13 

41 

253.435 

. 21636E+14 

. 26519E+05 

. 21636E+14 

. 97831E+12 

42 

255.810 

. 18700E+14 

.  27670E+05 

. 18700E+14 

. 87605E+12 

43 

258.185 

. 16213E+14 

. 28737E+05 

. 16213E+14 

. 78S96Etl2 

44 

260.560 

.  14056E+14 

.  29846E+05 

. 1 4  0  56E+ 1 4 

•70513E+12 

45 

262.150 

,  12230E+14 

.  29159E+05 

. 12230E+14 

. 62725E+12 

46 

263.740 

.  10641E+14 

. 28487E+05 

. 10641E+14 

. 55797E+12 

47 

265.225 

.  93127E+13 

. 27679E+05 

.93127E+13 

. 49831E+12 

48 

266.710 

. 81506E+13 

. 26893E+05 

. 81506E+13 

. 44  503E+12 

49 

266.930 

.  71968E+13 

. 24042E+05 

. 71968E+13 

. 39409E+12 

50 

267.150 

.63S47E+13 

. 21494E+05 

. 63547E+13 

. 34899E+12 

51 

265.555 

.  56342E+13 

.  16974E+05 

. 56342E+13 

. 30273E+12 

52 

263.960 

.  49955E+13 

.  13404E+05 

.  49955E+13 

. 26260E+12 

53 

261.210 

.  4  4 582E+1 3 

.  98753E+04 

.  44582E+13 

.22 544E+12 

54 

258.460 

.  39787E+13 

.  72756E+04 

.  39787E+13 

.  19354E+12 

55 

255.705 

.  35421E+13 

. 54637E+04 

.  354  21E+13 

.  16544E+12 

56 

252.950 

. 31535E+13 

.  41031E+04 

.  31535E+13 

.  14142E+12 

57 

250.200 

. 28003E+13 

.  32335E+04 

.  28003E+13 

.  12038E+12 

58 

247.450 

. 24867E+13 

. 25482E+04 

.  24867E+13 

.  10247E+12 

59 

244.700 

.22024E+13 

. 21592E+04 

.  22024E+13 

.  86823E+11 

60 

241.950 

. 19506E+13 

. 18295E+04 

. 19506E+13 

.  73564E+11 

61 

239.200 

. 17228E+13 

. 166  20E+04 

. 17228E+13 

. 62027E+11 

62 

236.450 

. 15215E+13 

. 15098E+04 

. 1521 5E+1 3 

.  52299E+11 

63 

233.695 

. 13399E+13 

. 1 4  565E+04 

. 13399E+13 

.  43868E+11 

64 

230.940 

. 1 1800E+1 3 

. 14051E+04 

. 11800E+13 

.  36796E+11 

65 

228.190 

. 10360E+ 1 3 

•14114E+04 

. 10350E+13 

.  30704E+11 

66 

225.440 

. 90964E+1 2 

. 1 4 17  8E+04 

. 90964E+12 

.  25620E+11 

67 

222.690 

. 79611E+12 

. 14649E+04 

.  79611E+12 

. 21262E+11 

68 

219.940 

. 69675E+12 

. 15135E+04 

.  69675E+12 

. 1764  5E+11 

69 

218.050 

. 60752E+12 

. 16079E+04 

.  60752E+12 

. 14807E+11 

70 

216.160 

. 52972E+12 

. 17081E+04 

.  52^72E+12 

. 12425E+11 
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It.'l.  (  nil  1 1 1 1 > ii I  fur  Samplo  Itiin  2 

The  beginning  of  the  file  containing  the  10032-00001  transitions 
needed  for  Sample  Hun  2  is  given  below.  Ko-vibrational  lines 
corresponding  to  bands  or  isotopes  which  are  not  needed  are  ignored. 

In  fact,  since  this  is  a  single-line  run,  the  file  could  consist  of  just 
tlie  one  card-image  corresponding  to  the  transition  under  consideration. 


CL101000  CQ2  ALL  10012  00001  06/21/00  2.7UM  REGULAR  101  COMBINATION  BANOS 

c  1 00 1  I  0000 1 


34  34 

7011 

3 .6076-27 . 0590 

1482.576 

10012 

00001 

p 

63 

482 

638 

2 

343* 

7364 

4  693£ "27 . 0590 

1436. 304 

10012 

00001 

p 

62 

482 

638 

2 

3436 

7667 

£  7636-27 . 0600 

1390 .763 

10012 

0000  1 

p 

61 

482 

638 

2 

34  3  7 

7919 

7  0506-27 . 0600 

1345 . 952 

10012 

00001 

p 

60 

482 

638 

2 

34  36 

8120 

6 .59)6-27 .0600 

1301 .673 

100  12 

0000  1 

p 

59 

4  B  2 

638 

2 

34  39 

82  72 

1  .  0436-26 . 0610 

1258.525 

10012 

00001 

p 

56 

482 

638 

2 

3440 

8  37  3 

1  .  2616-26.0610 

1215.906 

10012 

00001 

p 

57 

482 

636 

2 

344  1 

842  3 

1  ,5196-26.0610 

1 174 .024 

10012 

0000  l 

p 

56 

482 

638 

2 

3442 

8424 

1  6236“ 26. 06 20 

1132.671 

10012 

00001 

p 

55 

4b? 

e>38 

2 

344  3 

8  3  7  6 

2  1  796-26.0620 

1092 . 450 

10012 

00001 

p 

54 

482 

638 

2 

3444 

82  7  7 

2 . 5956-26.0620 

1052.761 

10012 

0000  1 

p 

53 

482 

638 

2 

3446 

8128 

3 . 07d£-26 . 0620 

1013.604 

10012 

00001 

p 

5  2 

482 

638 

2 

J446 

0416 

J  9746-27.0530 

2779 . 506 

100  i  2 

0000  1 

p 

84 

482 

636 

2 

34  46 

7  9  30 

J  6366-26.0630 

975.580 

1C  ,2 

00001 

p 

5  ) 

482 

638 

2 

344  7 

768  3 

•J  .  2  7  8  6-26. 0630 

938 . 089 

10012 

00001 

p 

50 

482 

638 

2 

34  48 

404  1 

7  .  2836-27.0530 

2649 .787 

lor  : 

00001 

p 

82 

482 

636 

2 

3448 

7  38  6 

5 . 0  146-26 . 0630 

901 .330 

1GJ  1  2 

0000  1 

p 

49 

482 

638 

2 

J444 

704  1 

5 . 6546- 26 . 0640 

865.304 

10012 

UuO  0  1 

p 

48 

48? 

638 

2 

3460 

6646 

6.6066-26.0640 

630 .011 

100  2 

0000  1 

p 

47 

482 

638 

2 

3460 

74  4  1 

1 . 3  16E-26. 0540 

2523. 146 

100,2 

00001 

p 

80 

482 

636 

2 

346  i 

6202 

7  6826-26.0640 

795 . 451 

10012 

00001 

p 

46 

482 

638 

2 

3462 

6  709 

9.0916-26. 0650 

761 .625 

10012 

00001 

p 

45 

482 

638 

2 

346  3 

06)6 

2  3446-26. 0550 

2399 .586 

100)2 

00001 

p 

78 

482 

636 

2 

346  3 

6  168 

1  . 0446-25.0650 

728.532 

10012 

0000  1 

p 

44 

482 

638 

2 

3464 

46  7  7 

l  .  1956-25 . 0650 

696 . 172 

10012 

00001 

p 

4  J 

482 

636 

2 

3466 

3668 

4  .  1056-26.0550 

2279 . 108 

100)2 

0000  1 

p 

76 

482 

636 

2 

3  4  6  6 

39  38 

l  .36  16-25. 0650 

664 . 547 

100  1  2 

0000  ) 

p 

42 

462 

636 

2 

3466 

326  1 

1 . 5456-25.0660 

633 . 655 

10012 

0000  l 

p 

4  ) 

482 

63B 

2 

346  l 

26  1  6 

1  .  7456-25.0660 

603.497 

10012 

00001 

p 

40 

482 

636 

2 

346  7 

6298 

7 .0766-26 . 0560 

2161.715 

10012 

0000  l 

p 

74 

482 

636 

2 

3468 

1731 

1  .  9646-25.0660 

574.072 

10012 

0000  1 

p 

39 

482 

638 

2 

3469 

0898 

2  .  2006-25 . 0670 

545.383 

10012 

0000  1 

p 

3  b 

482 

638 

2 

3469 

8808 

1  .  20  16-25.0560 

2047 .408 

100)2 

0000  1 

p 

72 

482 

636 

2 

3460 

0018 

2 . 4556-25 . 0670 

5 1 7 .427 

10012 

0000  ) 

p 

37 

482 

636 

2 

3460 

9089 

2.7276-25.0670 

490 . 206 

10012 

00001 

p 

36 

482 

638 

2 

346  1 
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B5.  I  nit  5:  Output  From  Sample  Run  2 

Subsidiary  program  output  from  Sample  Run  2  is  given  on  the  following  three 
pages. 
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B6. 


I  nil  6:  Output  F  rom  Sample  Run  2 

Diagnostic  output  from  Sample  Run  2  is  given  on  the  next  page. 
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PROGRAM  NLTE 

PREPARED  FOR  AIR  FORCE  GEOPHYSICS  LABORATORY 
HANSCOM  AFB,  MA,  01730 

BY 

PETER  F.  WINTERSTEINER 
ARCON  CORPORATION 
260  BEAR  HILL  RD. 

WALTHAM,  MA,  02154 


*************************************************************** 

PROGRAM  NLTE:  LINE-BY-LINE  CALCULATION  OF  INFRARED  AIRGLOW  FROM 
NON-LTE  REGIONS  OF  THE  ATMOSPHERE.  COMPONENT  OF  A.F.G.L.  ATMOS¬ 
PHERIC  RADIANCE  CODE  (ARC). 

*************************************************************** 


REAL  KT , INU , NU , EXPL 
INTEGER  RQL , DNU , PFAC , DIML 
LOGICAL  CMPL , FLAG 

PARAMETER ( DIML=500 , CMPL= . FALSE . ,EXPL=674  .  ) 

CHARACTER*  2  BR ( DIML ) , BL 
CHARACTER*  24  AST 

DIMENSION  ALT ( 250) , TRTMP ( 2 5 0 ) , ALCOR ( 2 50 ) , RHO ( 2 5 0 ) , TVL ( 250) 
DIMENSION  QRAT( 250) ,ZZ(250,5),R(250),DWID(250) ,VGT( 250) 
DIMENSION  KT (250) ,TVU(250) , STORE ( DIML , 5 ) , CUM ( 250) 

DIMENSION  RAT( 250 ) , HGTS ( 50 ) 

DIMENSION  V ( DIML ) ,STS(DIML) ,ALF(DIML) , EDP ( DIML ) , RQL ( DIML ) 
DIMENSION  RAD ( 5 ) ,RAW( 5) ,SUMRD(5) ,SUMPH{ 5) ,HTS( 5) , THR ( 5 ) ,TOD( 5) 
DIMENSION  SUM ( 5 ) , K I ( 5 ) , KM ( 5 ) ,TRN( 5) ,LMAX( 5) 

DIMENSION  INU (8, 5) ,OD(8,5) ,CC(8) ,W(4) ,C4( 2) ,C8( 4) ,W4 ( 2) ,W8( 4) 
DIMENSION  NU ( 8 ) 

EQUIVALENCE  ( V ( 1 ), STORE ( 1 , 1 ) ) 

COMMON/ A/' ALT  ,  TRTMP  ,  ALCOR ,  RHO ,  TVL ,  TVU ,  QRAT ,  Z  Z  ,  KT , 

1  KMAX , C2 , BST , TMIN 

COMMON/B/V , STS , ALF , EDP , RQL , NRL , HGTS , ACC , NPTS , NDP , 

1  WGT , LOOK , NREPS , IMXX , JMAX , FWHM 

COMMON/C/RAT , DWID , VGT 

DATA  FLAG /.FALSE./ 

DATA  AST/1************************  ’/ 

DATA  (C4(I) ,1=1, 2)/. 43056815579703,  .16999052179243/ 

DATA  (W4(I) ,1=1, 2)/. 17392742256873,  .32607257743127/ 

DATA  (C8(I) ,1=1, 4)/. 48014492824877,  .39833323870681, 

1  .26276620495816,  .091717321247825/ 

DATA  (W8(I) ,1=1, 4)/. 050614268145188,  .11119051722669, 

1  .15685332293894,  .18134189168918/ 

100  FORMAT!//) 

101  FORMAT ( IX ) 

103  FORMAT ( / , ’  EXEC  TIME  FOR  INITIALIZATION  = ' , F6 . 2 , '  SEC: ',17, 

1'  LINES’,//) 


102 
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104  FORMAT (///,'  RADIANCE  ( PHOTONS/CM2*STR*SEC*CM-i )  AND  TOTAL’, 

1'  OPTICAL  DEPTH  VS  FREQUENCY  (CM-1  FROM  THE  LINE  CENTER)', 

2'  FOR  VARIOUS  LINE-OF-SIGHT  PATHS’,/, 

3'  INTD  RAD  ( PHOTONS/CM2*STR*SEC )  WITHIN  SUCCESSIVE  INTEGRATION’, 

4’  PANELS  FOR  LINE  ',A2,I4, 

5’.  FOR  CONVERSION  TO  WATTS,  MULTIPLY  BY', Ell. 5, 

6//,8X, 'FREQ  ' ,5(A1,3X, 'RADIANCE' ,5X, ’ TAU ’ ,3X) ) 

105  FORMAT (14, F9. 6, IP, 5( El 3. 4, El 0.3) ) 

106  FORMAT (3X, 'ALT' , 8X ,  ' R '  , 9X ,  'DWID'  , 9X ,  ' KT ’ , 1  OX , ’RAT'  ,7X,  ' VGT ( 0 )  '  , 

16X, 'V.E.R. ' ,/,3X, ' (KM) ' ,16X, ' (CM-1) ' , 3 IX , ' ( CM ) ' , / ) 

107  FORMAT (1X,F6.2,6E12.5) 

108  FORMAT ( // , '  OPTICAL  DEPTHS  (LINE  CENTER)  GEOMETRICAL  DIS', 
l'TANCES  (KM)  AND  RADIANCE  CONTRIBUTIONS  ( PH/SEC*CM2*SR*CM-1 ' , 

2'  AT  LINE  CENTER)  FOR  EACH  LAYER',//, 

33X , 'ALT' , 5 ( A1 , '  DIS ' , 5X , ' O. D. ' , 6X , 'RAD' ,2X) ) 

109  FORMAT ( IX , F5 . 1 , 5 ( F7 . 2 , E10 . 4  ,  E9 . 3  )  ) 

110  FORMAT (IX, 'TOTAL' , 5 ( E17 . 4 , E9 . 3 ) ) 

111  FORMAT ( IX, A2, 1 5, IP, 5 (IX, Ell. 4, 12X) ) 

112  FORMAT ( 1H+ , 6X , IP, 5 ( 13X , Ell . 4 ) ) 

113  FORMAT)/,'  INTEGRATED  RADIANCE  ( WATT/ ( CM2  * STR )  FOR  VARIOUS  LINE', 
l'-OF-SIGHT  PATHS' , // , IX, 'LINE' ,2X,5(F10. 2, '  KM',F8.2,'  KM')) 

114  FORMAT (3X,  'TIME' ,7X,  'LB'  ,5(A1, ’LL  KM  RADIANCE  OP  DPTH ’  )  ) 

115  FORMAT ( // , '  CUMULATIVE  INTEGRATED  RADIANCE  ( WATT/CM2 * STR )  AND  ', 

1 ' TOTAL  OPTICAL  DEPTH  (AT  LINE  CENTER)  FOR  VARIOUS  LINE-OF-SIGHT  ', 

2 'PATHS ',//, 3X, 'EXEC  LINE '  , 5X , 4 ( Fll . 2 ,  '  KM ' , 1  OX ) , FI 1 . 2  ,  '  KM  '  ) 

116  FORMAT( IX, F6 . 2 , IX, A2 , 213 , 5 ( 2T  "  ,) 

117  FORMAT)//,'  TOTAL  BAND  RA>~'  ..  ) 

118  FORMAT)/, 15, ’  LINES '  , / , 1 5 ,  '  THICK',/) 

119  FORMAT ( /,3X, 'WATT/ (CM2* STR) :  '  , IP, 4 ( Ell . 4 , 13X ) , Ell . 4  ) 

120  FORMAT ( '  PH/ ( SEC* CM2* STR ) :  ' , IP , 4 ( El 1 . 4 , 1 3X ) , El 1 . 4 ) 

121  FORMAT ( 11X , 5 ( A1 ,  ' (THIN)  '  ,5X,  '  (THICK)  '  ,5X)  ) 

122  FORMAT)/,'  TMIN  =  TEMPERATURE  USED  FOR  STDW  =',I4, 

1/,'  STD  DOPP  WIDTH  =  STDW  (CM-1)  =',E11.5, 

2/ , 12 , ' -PT  GAUSS  QUADRATURE  USED  FOR  NU-INTEG ' ) 

123  FORMAT ( '  WATT/CM2*SR  ' , IP , 5 ( E12 . 4 , 11X ) ) 

124  FORMAT ( 12X,5(F16.2, '  KM’,4X)) 

125  FORMAT ( / , '  TAIL  CONTRIB :  ' , / , '  PH/SEC*CM2*SR ' , IP , 5 ( El  2 . 4 , 1 IX  )  ) 

126  FORMAT ( / , '  P  '  ,  12 , 1 5 , ' - ' , 1 3 , IP , 5 ( E13 . 5 , 10X  )  ) 

127  FORMAT ( '  $$$$$  CAUTION:  LINE  ’,A2,I4,'  IS  VERY  THICK,  TOD(O)  =', 

1E9 . 3 , '  FOR ' ,F7 . 2 , '  KM  PATH,  TAIL  APPROXIMATION  MAY  BE  IN  ERROR', 

2 '  $$$$$  '  ) 

128  FORMAT ( // , '  ALTITUDE-DEPENDENT  QUANTITIES  FOR  LINE  '  ,  A2 , 1 4 , ' : ' , // , 

1'  VOLUME  EMISSION  RATE  IN  PHOTONS/(SEC*CM3*CM-l*STER)  (SPECTRAL', 

2’,  AT  LINE  CENTER) ' ,/,21X, 

3'  OR  PHOTONS/ ( SEC*CM3*STER )  (INTEGRATED  OVER  LINE)',/, 

4’  R  IS  GIVEN  IN  UNITS  OF  PHOTONS/{ SEC*CM2*CM-1*STER ) ' , / , 

5'  KT  IS  GIVEN  IN  UNITS  OF  CM-1/MOLECULE-CM2 ' ,//) 

129  FORMAT) '  *****»', 5 ( A24 ) ) 

130  FORMAT  (  // ,  '  $$$$$  CAUTION— -BECAUSE  JMAX  >',I4,\  NLTE  CANNOT  ’  , 

1'  HANDLE  MORE  THAN  5  VIEWING  PATHS  IN  ONE  RUN .',/, 17X ,' RERUN  ', 

2'  NLTE  TO  HANDLE  THE  HIGHER-ALTITUDE  PATHS  $$$$$',//) 

990  FORMAT)///,'  *****  REQUESTED  LINES  NOT  FOUND  *****’,////) 

C 

C  a******************************************************************* 


PARAMETER  STATEMENTS  APPEAR  IN  NLTE,  LINES,  AND  SPECTRM .  THEY  SHOULD 
BE  MADE  CONSISTENT  WITH  EACH  OTHER.  THE  PURPOSE  OF  CMPL  IS  TO  PRO¬ 
VIDE  AN  OPTION  TO  LIST  LIMITED  PROGRAM  OUTPUT  TO  UNIT  9,  WHICH  IS  E- 
QUIVALENT  TO  OUTPUT.  THIS  IS  FOR  USE  IN  INTERACTIVE  PROCESSING  AND 
IS  INVOKED  BY  INCLUDING  THE  DS  PARAMETER  ON  THE  FTN5  CONTROL  CARD. 
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c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


( CDC  CYBER  MACHINES).  DEFAULT  IS  TO  PRINT  NOTHING  TO  UNIT  9. 

EXPL  IS  THE  OVERFLOW  OR  UNDERFLOW  LIMIT  FOR  THE  EXPONENTIAL  FUNCTION 

A******************************************************************* 


DEFINE  ALL  CONSTANTS  AND  INITIAL  VALUES: 

EARTHR  =  EARTH'S  RADIUS  (KM) 

BOLTZ  =  BOLTZMANN'S  CONSTANT  (ERGS/DEG) 

TS  =  STANDARD  LINE  STRENGTH  TEMPERATURE  (K)  FOR  AFGL  TAPE 
C2  =  2ND  RADIATION  CONSTANT  (DEG/CM-1).  THIS  FACTOR  IS  NEEDE2 

EXPRESSIONS  LIKE  EXP ( -H*C*V/ ( BOLTZ *T ) )  WHERE  V  IS  IN  CM-I 
AND  T  IS  SOME  TEMPERATURE.  LATER  THE  TEMPERATURE  PROFILES 
ARE  PREMULTIPLIED  BY  1/C2  TO  SAVE  SOME  OPERATIONS. 

BST  =  BOLTZ  *TS/ ( H*C ) 

C  =  SPEED  OF  LIGHT  (CM/SEC) 

H  =  PLANCK'S  CONSTANT  (ERG-SEC)  AFTER  ITS  INITIAL  USE  MULTIPLY 
BY  10**-7  TO  GET  MKS  UNITS,  WHICH  GIVES  THE  EVENTUAL  RADI¬ 
ANCES  IN  TERMS  OF  WATTS  RATHER  THAN  ERGS/SEC. 

A2  =  SORT (ALOG( 2.0) ) 

EARTHR  =  6361. 

TS  =  296.0 

BOLTZ  =  1 . 380622E-16 
PI  =  3.1415926535898 
C  =  2. 9979 E+ 10 
H  =  6.6262E-27 
C2  =  H*C/BOLTZ 
BST  =  TS/C2 
H  =  H* 1 . 0E-07 
TZ  =  SECOND ( ) 

BL  =  '  ' 


★A******************************************************************* 

AT  THIS  POINT  SUBROUTINE  LINES  IS  CALLED  TO  READ  IN  THE  DATA  REQUIRED 
TO  RUN  THE  PROGRAM,  AND  PERFORM  SOME  INITIAL  MANIPULATION  OF  ARRAYS. 
THE  ATMOSPHERIC  PROFILE  IS  ACTUALLY  READ  IN  SUBROUTINE  ATMPR ,  CALLED 
BY  LINES.  THE  DATA  REQUIREMENTS  ARE  GIVEN  IN  THE  COMMENTS  IN  SUBROU¬ 
TINES  LINES  AND  ATMPR. 

SUBROUTINE  LINES - PURPOSE: 

PERFORMS  INITIALIZATION  STEPS 
READS  UNIT  1  (PROGRAM  DATA) 

CALLS  SUBROUTINE  ATMPR 
READS  UNIT  3  (AFGL  LINEFILE) 

SETS  CONTENTS  OF  COMMON/B/ 

CALLS  SPECTRM,  IF  NECESSARY 

RETURNS  CERTAIN  INITIAL  PARAMETER  VALUES 

SUBROUTINE  ATMPR - PURPOSE: 

READS  UNIT  2  (ATMOSPHERIC  PROFILE) 

SETS  UP  PROFILE  FOR  DESIRED  BAND 
SETS  CONTENTS  OF  COMMON/A/ 

********************************************************************* 

CALL  LINES(VIBE, VI BL , BR ) 

********************************************************************* 
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c 

c 

C  AT  THIS  POINT  THE  DATA  HAVE  ALL  BEEN  READ  IN  AND  STORED  IN  THE  PROPER 

C  ARRAYS.  NOW  DO  SOME  FURTHER  INITIALIZATION  AND  THEN  PROCEED  WITH  THE 

C  LOOPS  WHICH  PERFORM  THE  ACTUAL  CALCULATIONS. 

C 

C  STDW  IS  THE  STANDARD  DOPPLER  WIDTH  WHICH  IS  USED  TO  DEFINE  PANELS  FOR 

C  THE  NU- INTEGRATION.  THE  CC  DEFINE  THE  INTEGRATION  POINTS,  AND  THE  W'S 

C  ARE  THE  WEIGHTS.  NPTS  (WHICH  CAN  BE  2,  4,  OR  8)  IS  THE  NUMBER  OF  IN- 

C  TEGRATION  POINTS  PER  PANEL. 

C 

Q  ********************************************************************* 

C 

I F ( JMAX . EQ . 0 ) GO  TO  998 

DOPP  =  A2*SQRT(2.0*BOLTZ*C2/(WGT*C*C) ) 

STDW  =  DOPP*SQRT ( TMIN/C2 ) * VIBE 
IF(NPTS.EQ.2)THEN 

CC(1)  =  2  8  8  6  7  5 1 3  4  5  9  5  *  STDW 

CC ( 2 )  =  -CC ( 1 ) 

W(I)  =  .50 

ELSE  IF ( NPTS. EQ. 4) THEN 
DO  202  I  =  1,2 
CC(I)  =  -C4(I)*STDW 
CC ( 5- 1 )  =  C  4 ( I ) *STDW 

202  W(I)  =  W4 ( I ) 

ELSE 

DO  203  I  =  1,4 

CC ( I )  =  -C8(I)*STDW 

CC( 9-1 )  =  C8 { I ) *STDW 

203  W(I)  =  W8 ( I ) 

END  IF 

I  =  TMIN 

WRITE (4, 122)1, STDW, NPTS 
C 

C  THE  TOTAL  NUMBER  OF  DIFFERENT  LINE-OF-SIGHT  PATHS  TO  BE  CONSIDERED 

C  IN  ALL  IS  I MX ,  (FIXED  IN  LINES).  THESE  CASES  ARE  DONE  IN  GROUPS  OF 

C  FIVE  (POSSIBLY  LESS,  IN  THE  CASE  OF  THE  LAST  GROUP)  IN  ORDER  TO  MAKE 

C  THE  PRINTED  OUTPUT  MANAGEABLE  AND  ALSO  TO  REDUCE  THE  SIZE  OF  CERTAIN 

C  ARRAYS.  THE  LOOP  DO  500  IS  ENTERED  ONCE  FOR  EACH  GROUP.  THE  ARRAY 

C  HGTS  STORES  THE  HEIGHTS  (IN  KM)  WHICH  PARAMETERIZE  EACH  PATH.  NREPS 

C  (ALSO  FIXED  IN  LINES)  IS  THE  NUMBER  OF  GROUPS  WHICH  MUST  BE  HANDLED. 

C 

C  NOTE  THAT  IF  THERE  ARE  MORE  THAN  500  LINES  IN  THE  BAND  UNDER  CONSI- 

C  DERATION  ONLY  5  VIEWING  PATHS  CAN  BE  PROCESSED  IN  ONE  RUN. 

C 

TS  =  SECOND {)  -  TZ 
WRITE( 4 , 103 )TS , JMAX 
CS  IF(CMPL) 

WRITE( 9 , 103 )TS , JMAX 
CS  ENDIF 

IF ( JMAX. GT.DIML) THEN 
JMAX  =  DIME 
IF ( NREPS. GT.l) THEN 
NREPS  =  1 
WRITE( 4 , 130 )DIML 
WRITE (6,130) DIML 
END  IF 
END  IF 
C 

£★******************★***************************************★***********♦ 
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c* 

C*  LOOP  TO  SELECT  GROUPS  OF  ( 5  OR  LESS)  LINE-OF-SIGHT  PATHS.  CALCULATE 

C*  THESE  CASES  ALL  AT  ONCE.  WHEN  THIS  LOOP  ENDS,  EXECUTION  TERMINATES. 

C*  SUBROUTINE  PATH  RETURNS  IMAX,  THE  HUMBER  OF  PATHS  IN  THE  GROUP  SPE- 

C*  CIFIED  BY  THE  INDEX  NR  AND  STACKS  IMAX  VALUES  OF  HGTS  INTO  THE  VEC- 

C*  TOR  HTS .  IT  ALSO  DETERMINES  THE  LOWER-ALTITUDE  INDEX,  Kl,  FOR  EACH 

C*  PATH. 

C* 

DO  500  NR  =  1 , NREPS 
LCNT  =  1 
JCNT  =  0 

IF ( JMAX . EQ. 1 ) FLAG  =  .TRUE. 

CALL  PATH ( ALT , HGTS , IMXX , HTS , IMAX , NR , KMAX , LOOK , Kl ) 

C* 

C*  SUMRD  AND  SUMPH  ARE  ARRAYS  THAT  STORE  THE  SUM  OF  RADIANCES  FROM  RO- 
C*  TATIONAL  TRANSITIONS  FOR  THE  ITH  LINE-OF-SIGHT  PATH.  PRESET  THESE 
C*  ARRAYS  TO  ZERO.  ALSO  CALCULATE  THE  ARRAY  OF  PATH  LENGTHS,  ZZ,  FOR 
C*  EACH  LAYER  (K)  AND  EACH  PATH  (I)  IN  THIS  GROUP.  THE  FACTOR  10**5 
C*  CONVERTS  KM  TO  CM,  AND  THE  FACTOR  RHO(K)  CONVERTS  ZZ  TO  THE  COLUMN 
C*  DENSITY. 

C* 

DO  220  I  =  1 , IMAX 
SUMPH ( I )  =0.0 
SUMRD ( I )  =  0.0 
DO  220  K  =  Kl ( I ) , KMAX 
I F ( LOOK . EQ . 1 ) THEN 

Z2  =  ALT (  K  +  l )  -  ALT ( K ) 

IF(K.EQ.K1(I) )Z2  =  ALT ( K+l )  -  HTS(I) 

ELSE 

Z1  =  ALT ( K )  -  HTS ( I ) 

IF ( Z1 . LT . 0 . 0 ) Z 1  =  0.0 

Z1  =  SQRT(Z1*(2.0*  EARTHR  +  ALT(K)  +  HTS ( I ) ) ) 

Z  2  =  SQRT ( ( ALT ( K  +  l ) -HTS ( I ) ) * ( 2 . 0*EARTHR+ALT ( K  +  l ) +HTS ( I ) ) )  -  Z1 
END  IF 

220  ZZ ( K , I )  =  RHO(K)*Z2*1.0E+05 

C* 

IF ( FLAG . AND . NR . EQ . 1 ) THEN 

WRITE (5,128)BR(1) , RQL ( 1 ) 

WRITE (5,106) 

END  IF 
C* 

Q*  ********************************************************************** 

c*  * 

C**  LOOP  TO  PERFORM  CALCULATIONS  ON  ALL  THE  ROTATIONAL  LINES  SELECTED. 

C**  LINES  ARE  READ  FROM  TAPE3  IN  BATCHES  OF  500,  MAXIMUM.  IF  THERE  ARE 

C**  MORE  THAN  500  LINES  ON  THE  LINEFILE  THIS  LOOP  IS  ENTERED  MORE  THAN 

C**  ONCE.  (SYMBOLIC  CONSTANT  DIML  IS  SET  TO  500  FOR  THIS  PURPOSE.)  IF 

C**  THERE  ARE  MORE  THAN  500  LINES,  A  MAXIMUM  OF  FIVE  L-O-S  PATHS  CAN 

C**  BE  RUN. 

Q*  * 

C**  QQ  CORRECTS  FOR  THE  STIMULATED  EMISSION  AT  TS  (296  K). 

C** 

225  DO  400  J  =  1 , JMAX 
VINIT  =  V(J) 

ALFL  =  ALF(J) 

OO  =  1.0  -  EXP(-VINIT/BST) 

C** 

*****#*#****#*#****★***★★★★***★★***★************★★*★****★★********* 

C**  * 

C**  *  THE  LOOP  DO  230  CALCULATES  THOSE  PATH- INDEPENDENT  QUANTITIES  WHICH 
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Q*  *  * 

Q  *  * 

Q  *  * 

c 

£  *  * 
c  *  * 
c  *  * 
c  *  * 
£  *  * 
(2  *  * 
c  *  * 

c  *  * 

c  *  * 


230 


231 


C 

C 


232 

C  *  * 
C  * 

C  * 

c  * 
c  *  * 

C  *  * 

c  *  * 
c  *  * 
c  *  * 
c  *  * 
c  *  * 
c  *  * 
c  *  * 
£  *  * 
c  *  * 
c  *  * 
c  *  * 
c  *  * 


DEPEND  ONLY  ON  ALTITUDE.  ALTITUDES  RUN  FROM  THE  LOWEST  REQUIRED 
FOR  THE  FIRST  (LOWEST)  LINE-OF-SIGHT  PATH  TO  THE  HIGHEST  REQUIRED 
FOR  THE  LAST  PATH  IN  THE  CURRENT  GROUP. 

GAM  =  ( GL*NU ) / ( GU*NL ) 

R  SIMILAR  TO  NOTATION  IN  BULLITT  ET  AL ,  JQSRT  (T.B.P.,  1985) 

DWID  =  DOPPLER  WIDTH  (CM-1) 

RAT  =  LORENTZ  TO  DOPPLER  LINEWIDTH  RATIO  FOR  THE  VOIGT  FUNCTION 
KT  =  CORRECTED  LINE  STRENGTH.  QRAT*EXP ( ARG )  IS  JUST  THE  RATIO 
PL ( TVL , T ) /PL ( TS , TS )  WHERE  PL(T1,T2)  IS  THE  PROBABILITY  THAT 
THE  LOWER  RO-VIB  STATE  IS  OCCUPIED  AT  THE  VIBRATIONAL  TEMP¬ 
ERATURE  T1  AND  THE  ROTATIONAL  TEMPERATURE  T2 . 

DO  230  K  =  K1 ( 1 ) ,KMAX 

ARG  =  ( VIBE-VINIT ) /TRTMP ( K )  -  ( VIBL+VIBE ) /TVU ( K )  +  VIBL/TVL(K) 

GAM  =  EXP (ARG) 

R ( K )  =  ( GAM/ ( 1 . 0-GAM ) ) *2 . 0*C*VINIT*VINIT 

ARG  =  EDP ( J ) /BST  -  ( EDP ( J ) -VIBL ) /TRTMP ( K )  -  VIBL/TVL(K) 

KT ( K )  =  STS ( J ) *QRAT ( K ) * ( 1 . 0  -  GAM) *EXP ( ARG ) /QQ 
DWID ( K )  =  DOPP*SQRT ( TRTMP ( K ) ) *VINIT 
RAT ( K )  =  A2*ALFL*ALCOR{ K ) /DWID ( K ) 

DV  =  0.0 

I F ( NDP . LT . 0 ) THEN 

DO  231  K  =  K1 ( 1 ) , KMAX 

VGT(K)  =  VWERF ( DV , RAT ( K ) )/DWID(K) 

ELSE 

CALL  ZVGTC ( DV, K1 ( 1 ) , KMAX ) 

END  IF 

I F  (  FLAG  .  AND .  NR .  EQ .  1 )  THEN 
DO  232  K  =  K1  ( 1 )  , KMAX 

TAU  =  KT ( K ) *VGT ( K ) *RHO( K)*1.0E+05*R(K) 

WRITE( 5 , 107 ) ALT( K),R(K) ,DWID(K),KT(K) ,RAT ( K ) , VGT ( K ) , TAU 
END  IF 

********************************************************************** 


THE  LOOP  DO  240  I=1,IMAX  CALCULATES  THE  RADIANCE,  THR,  FOR  EACH  PATH 
ON  THE  ASSUMPTION  THAT  THE  LINE  IS  "THIN".  IT  ALSO  CALCULATES  THE  TO¬ 
TAL  OPTICAL  DEPTH  AT  THE  LINE  CENTER,  AND  THEN  DECIDES  WHETHER  TO  GO 
THROUGH  THE  "THICK"  CALCULATION  ON  THE  BASIS  OF  ITS  VALUE.  INUM  IS 
THE  NUMBER  OF  PATHS  IN  THE  CURRENT  GROUP  FOR  WHICH  TO  DO  THE  "THICK" 
CALCULATION.  ALSO,  FOR  EACH  PATH,  THE  ARRAY  TRN  USED  TO  EVALUATE  THE 
TAIL  OF  THE  RADIANCE  PROFILES  IS  CALCULATED.  LEND  AND  LMAX  ARE  INDI¬ 
CES  SPECIFYING  THE  INTEGRATION  PANELS  AT  WHICH  THE  PANEL-WIDTH  IS 
FIRST  AUGMENTED  AND  AFTER  WHICH  THE  NUMERICAL  INTEGRATION  IS  CUT  OFF, 
RESPECTIVELY.  ALSO,  INITIALIZE  THE  RADIANCE  ARRAYS  WITH  THE  THIN-LINE 
RESULTS,  AND  CHOOSE  KM(I),  THE  MAXIMUM  ALTITUDE  NEEDED  FOR  THE  ITH 
VIEWING  PATH. 

INUM  =  0 
KLAR  =  0 
LBND  =  0 
MTAU  =  1 

DO  240  I  =  1 , IMAX 
LMAX ( I )  =  0 
TOD ( I )  =  0.0 
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THR(I)  =0.0 
TRN(I)  =0.0 
SUM ( I )  =0.0 
KM ( I )  =  KMAX 
IF ( LOOK. EQ.O) THEN 
KI  =  KMAX 
KF  =  Kl ( I ) 

KD  =  -1 

ELSE 

KI  =  Kl  (  I) 

KF  =  KMAX 
KD  =  1 
END  IF 
QK  =  1.0 

DO  235  K  =  KI f  KF  < KD 
TAU  =  KT(K) *2Z (K, I } 

THR(I)  =  THR(I)  +  R ( K ) *TAU 

TRN { I )  =  TRN(I)  +  R( K ) *TAU*ALCOR ( K ) *ALFL 

TAU  =  TAU*VGT ( K ) 

TOD ( I )  =  TOD ( I )  +  TAU 
IF ( TOD ( I ) . L£.EXPL)THEN 
EK  =  EXP {-TAU) 

22  =  QK  * ( 1 . 0  -  EK ) *R { K ) 

SUMiI)  =  SUM{ I)  +  Z2 
CUM ( K )  =  SUM! I) 

QK  =  QK*EK 

ELSE 

Z2  =  EXP(-EXPL) 

CUM ( K )  =  0.0 
END  IF 

IF (FLAG) THEN 

L  =  K  -  Kl  ( 1 )  +  2 
STORE (L, I)  =  TAU 
STORE ( L+KMAX , I )  =  Z2 
END  IF 
235  CONTINUE 

IF ( NDP . EQ . 1 ) THEN 

TRN ( I )  =  THR ( I ) *DWID ( Kl ( I ) ) / ( A2*SQRT ( PI ) ) 

ELSE 

TRN ( I )  =  TRN ( I ) *  2 . 0/PI 
END  IF 

IF (LOOK. EQ.O) THEN 

THR ( I )  =  2 . 0*THR ( I ) 

TOD ( I )  =  2 . 0  *TOD ( I ) 

TRN ( I )  =  2 . 0*TRN( I ) 

END  IF 

RAD( I)  =  THR( I) 

THR(I)  =  THR( I ) *H*C*VINIT 
RAW( I)  =  THR( I) 

IF ( TOD ( I ) . GT . TOD { MTAU ) ) MTAU  =  I 
IF(TOD( I ) .GT. ( 3 . 0  *ACC ) . OR . FLAG ) THEN 
INUM  =  I 
RAD(I)  =0.0 
IF( LOOK. EQ.O) THEN 
22  =  SUM ( I ) * ACC 
DO  238  K  =  KMAX , Kl ( I ) , - 1 
I F ( CUM ( K ) . GT . Z 2 ) GO  TO  240 
KM ( I )  =  K 

238  CONTINUE 

ELSE 
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239 


22  =  (1.0  -  ACC ) *SUM ( I ) 

EKO  239  K  =  KMAX  ,  K1  ( I  )  ,-l 
I F ( CUM ( K ) . LT . 2 2 ) GO  TO  240 
KM  (  I  )  =  K 
END  IF 
END  IF 

240  I F ( KLAR . LT . KM ( I ) ) KLAR  =  KM(I) 

C  *  * 

Q  *  *****★**★********★*★*★**★*★★*****★★★****★★★*★**★★*★★**★★*★************ 

C  * 

£  *  *********************************************************************** 
C  *  * 

C  *  *  IF  THERE  IS  ONLY  ONE  LINE  UNDER  CONSIDERATION.... 

C  *  *  WRITE  SOME  INFORMATION  TO  TAPES 

C  *  *  WRITE  A  HEADER  TO  TAPE 4 

C  *  *  RESET  INUM  SO  THE  "THICK"  CALCULATION  IS  PERFORMED  REGARDLESS  OF 

C  *  *  THE  OPTICAL  DEPTH 

C  *  * 

IF(FLAG)THEN 

INUM  =  IMAX 
ARG  =  H*C*VINIT 

WRITE (4,104) BR ( 1 ) ,RQL(1) , ARG ,( BL , 1=1 , INUM ) 

WRITE (4, 124) (HTS(I) ,1=1, INUM) 

WRITE (4,101) 

WRITE (5,108) (BL, 1=1, IMAX) 

WRITE( 5 , 101 ) 

DO  245  K  =  K1 ( 1 ) , KMAX 
L=K-K1(1)  +2 
DO  244  I  =  1 , IMAX 
IF ( ( K1 ( I ) -K1 ( 1 ) +2 ) . GT . L ) GO  TO  244 
LL  =  I 

CUM ( I )  =  1.0E-05*22(K,I)/RHO(K) 

244  CONTINUE 

24 5  WRITE (5,109)  ALT (  K  )  ,  (CUM(  I  )  ,  STORE (L,  I  )  ,  STORE  (  L+KMAX  ,  I  )•,  1  =  1 ,  LL) 
WRITE (5,101) 

WRITE (5,110) ( TOD ( I ) , SUM ( I ) ,1=1, IMAX ) 

END  IF 

C  *  * 

Q  *  ********************************************************************** 

C  * 

C  *  SET  I CUR ,  THE  NUMBER  OF  PATHS  PRESENTLY  UNDER  CONSIDERATION  FOR  THE 
C  *  "THICK"  CALCULATION.  INITIALI2E  THE  PANEL-WIDTH  FACTOR,  PFAC  (INTE- 
C  *  GER)  AND  THE  NU-INDEX,  DNU  (INTEGER).  ( DNU  GIVES  THE  NUMBER  OF  STAN- 
C  *  DARD  DOPPLER  WIDTHS  FROM  THE  LINE-CENTER  TO  THE  END  OF  THE  CURRENT 
C  *  INTEGRATION  PANEL.)  JCNT  IS  THE  NUMBER  OF  "THICK"  LINES  ENCOUNTERED. 
C  * 

I F ( INUM . EQ . 0 ) GO  TO  360 
JCNT  =  JCNT  +  1 
PFAC  =  1 
DNU  =  0 
I CUR  =  INUM 

C  * 

C  * 

q  *  a********************************************************************** 

c  ** 

C  **  THE  LOOP  DO  350  LL  =  1,50  SELECTS  THE  PANELS  (OF  WIDTH  STDW*PFAC) 
C  **  WITHIN  WHICH  TO  PERFORM  NPTS-PT  GAUSS-LEGENDRE  QUADRATURE  OVER  FREQU- 
C  **  ENCY.  THE  LOOP  DO  300  L  =  1,NPTS  EVALUATES  THE  INTEGRAND  AT  THE  NPTS 
C  **  CHOSEN  FREQUENCIES  FOR  EACH  L-O-S  PATH,  AND  THE  INTEGRALS  THEMSELVES 
C  **  ARE  EVALUATED  AT  STATEMENT  305.  THE  INTEGRAND  IS  THE  RADIANCE  INTE- 
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C  **  GRATED  ALONG  THE  L-O-S  PATH - THAT  IS  THE  INTEGRAL  OVER  2.  THIS  Z-IN- 

C  **  TEGRATION  IS  THEREFORE  CARRIED  OUT  COMPLETELY  FOR  THE  FIRST  OF  THE 
C  **  NPTS  POINTS  (THE  FIRST  FREQUENCY)  FOR  ALL  L-O-S  PATHS  BEFORE  THE  SE- 
C  **  COND  IS  CONSIDERED. 
q  *  * 

C  **  FOR  LIMB-LOOK,  THE  Z- INTEGRATION  IS  DONE  IN  TWO  PIECES  (LOOPS  ENDING 
C  **  AT  260  AND  265).  FOR  ZENITH-LOOK,  ONLY  THE  SECOND  PIECE  IS  REQUIRED. 

r  *  * 

C  *  * 

DO  350  LL  =  1,50 

C  *  * 

DNU  =  DNU  +  PFAC 

CPAN  =  STDW*DNU  -  STDW*PFAC/2 . 0 

DO  300  L  =  1 , NPTS 

DV  =  CPAN  +  CC(L)*PFAC 

C  *  * 

c  *  *  ********************************************************************** 

C  *** 

C  ***  LINESHAPE:  CALCULATE,  FOR  ALL  ALTITUDES  REQUIRED,  THE  VALUES 

C  ***  OF  THE  VOIGT  PROFILE  AT  THE  -DISTANCE"  FROM  THE  CENTER  OF  THE  LINE 

C  ***  DETERMINED  BY  THE  CURRENT  VALUES  OF  L  AND  LL - THAT  IS,  DV  CM-1 

C  ***  FROM  THE  CENTER.  THE  DOPPLER  OPTION  IS  INCLUDED  IN  ZVGTC.  RESULTS 
C  ***  ARE  STORED  IN  ARRAY  VGT. 

Q  *  *  * 

I F ( NDP . LT . 0 ) THEN 

DO  251  K  =  K1 ( 1 ) , KLAR 
Z  2  =  DV/DWID ( K ) 

251  VGT(K)  =  VWERF ( Z2 , RAT ( K ) ) /DWID( K ) 

ELSE 

CALL  ZVGTC ( DV , K1 ( 1 ) , KLAR ) 

END  IF 

C  *  *  * 

£  *  *  *************************************************************** * *  *  *  *  *  * 
C  »* 

Q  »»  ********************************************************************** 

C  *** 

C  ***  THE  LOOP  DO  270  I  =  1,ICUR  SELECTS  DIFFERENT  LINE-OF-SIGHT  PATHS. 

C  ***  SUM  IS  (TEMPORARILY)  THE  OPTICAL  DEPTH  ALONG  THE  PATH  AT  THE  CUR- 

C  ***  RENT  FREQUENCY.  INU  (REAL)  IS  THE  RADIANCE. 

C  *  *  * 

DO  270  I  =  1 , I CUR 
SUM ( I )  =  0.0 
INU ( L , I )  =  0.0 

C  *  *  * 

C  ***  START  THE  Z- INTEGRATION  ALONG  THE  LINE-OF-SIGHT  AT  THE  TOP  OF 

C  ***  THE  ATMOSPHERE.  THE  LOOP  DO  260  CARRIES  THE  CALCULATION  FROM 

C  ***  THE  OBSERVER  TO  THE  TANGENT  POINT  FOR  LIMB-LOOK  GEOMETRY.  THIS 

C  ***  LOOP  IS  BYPASSED  FOR  ZENITH-LOOK. 

C  *** 

QK  =  1.0 

I F ( LOOK . EQ . 1 ) GO  TO  263 
DO  260  K  =  KM ( I ) ,K1(I) ,-l 

TAU  =  KT(K)*ZZ(K,I) *VGT ( K ) 

SUM(I)  =  SUM(I)  +  TAU 

IF ( SUM( I ) ,GT.EXPL)GO  TO  260 

EK  =  EXP ( -TAU) 

INU(L.I)  =  INU ( L , I )  +  QK* (1.0  -  EK ) *R ( K ) 

QK  =  QK*EK 
260  CONTINUE 

I F ( SUM ( I ) . LT . EXPL ) GO  TO  263 
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SUM ( I )  =  2 . 0*SUM( I ) 

GO  TO  266 

q  *  *  * 

C  ***  FOP.  LIMB-LOOK,  COMPLETE  THE  2-INTEGRATION  BY  CARRYING  IT  FROM 

C  ***  THE  TANGENT  POINT  THROUGH  ALL  SLABS  TO  THE  FAR  HORIZON.  FOR 

C  ***  ZENITH-LOOK  THIS  LOOP  DOES  THE  COMPLETE  CALCULATION  FROM  THE 

C  ***  THE  OBSERVER  TO  TOP  OF  THE  ATMOSPHERE. 

C  *  *  * 

263  DO  265  K  =  K1(I) ,KM(IJ 

TAU  =  KT (K) *  ZZ ( K , I )*VGT(K) 

SUM(I)  =  SUM(I)  +  TAU 
I F ( SUM ( I ) .GT . EXPL )GO  TO  265 
EK  —  EXP ( -TAU) 

INU ( L, I )  =  INU(L.I)  +  QK* ( 1 . 0  -  EK ) *R ( K ) 

QK  =  QK*EK 


265 

CONTINUE 

268 

NU  ( L )  =  : 

OD ( L , I ) 

270 

CONTINUE 

C  *  *  * 

Q  *  *  ********************************************************************** 

C  ** 

300  CONTINUE 
C  ** 

C  **  PERFORM  2-,  4-,  OR  8-PT  GAUSSIAN  INTEGRATION  OVER  THE  CURRENT  PANEL, 
C  **  AND  ADD  THE  RESULT  TO  THE  ACCUMULATING  SUMS  STORED  IN  RAD. 

C  ** 

TAU  =  SUM ( MTAU ) 

DO  310  I  =  1 , I CUR 
LMAX(I)  =  LL 
SUM ( I )  =0.0 
DO  305  K  =  1 ,NPTS/2 

305  SUM  ( I )  =  SUM  ( I )  +  U(K)*(im(K,I)  +  INU(  NPTS+l-K ,  I ) ) 

SUM ( I )  =  2 . 0*SUM( I ) *STDW*PFAC 
310  RAD(I)  =  RAD(I)  +  SUM(I) 

C  ** 

C  **  IF  THERE  IS  ONLY  ONE  LINE,  PRINT  THE  LINESHAPE  AND  THE  RESULTS  OF  THE 
C  **  INTEGRATION  OVER  SUCCESSIVE  PANELS  AS  THEY  ARE  PROCESSED. 

C  ** 

IF (FLAG) THEN 

DO  320  L  =  1 , NPTS 
K  =  ( LL-1 ) *NPTS  t  L 

320  WRITE ( 4,105)K,NU(L) , ( INU( L, I ) ,OD( L, I ) , 1=1 , ICUR ) 

K  =  DNU  -  PFAC 

WRITE (4,126 ) LL, K, DNU, (SUM(I) ,1=1, ICUR) 

WRITE( 4 , 101 ) 

END  IF 

C  ** 

C  **  CHECK  TO  SEE  IF  THE  NUMERICAL  INTEGRATION  CAN  BE  CUT  OFF.  IF  SO,  ADD 

C  **  IN  THE  ANALYTICAL  RESULT  FOR  THE  TAIL  AND  DECREMENT  ICUR.  SKIP  OUT 

C  **  OF  THE  FREQUENCY  LOOPS  IF  ALL  PROFILES  ARE  CUT  OFF. 

C  ** 

I F ( DNU . GE . 5 ) THEN 
L  =  0 

DO  330  I  =  ICUR, 1,-1 
Z1  =  1.0 

I F ( NDP . EQ . 1 ) THEN 

Z1  =  DNU*STDW*A2/DWID(K1 ( I )  ) 

Z1  =  EXP( -Z1*Z1 ) 

END  IF 
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I 

S  =  Z1*TRN( I )/(DNU*STDW) 

Z  2  =  6 . 0  * ACC* RAD ( I ) /OD ( NPTS , I ) 

IF ( S . LT . Z  2 ) THEN 
L  =  L  +  1 

TRN(I)  =  S* ( 1 .  +  (DWID(Kl,I))/( DNU*STDW ))**2/(2.*A2*A2)) 

IF ( NDP . EQ . 1 )TRN ( I )  =  S 
RAD ( I )  =  RAD ( I )  +  TRN(I) 

END  IF 

330  CONTINUE 

ICUR  =  ICUR  -  L 
END  IF 

IF(ICUR.LE.O) GO  TO  360 

r  *  * 

C  **  CHECK  TO  SEE  IF  THE  PANEL  WIDTH  CAN  BE  EXPANDED  TO  PERFORM  THE  NUMER- 
C  »*  ICAL  INTEGRATION  IN  THE  TAIL  MORE  OUICKLY.  THE  PATH  WITH  THE  GREATEST 
C  **  OPTICAL  DEPTH  TRIGGERS  THE  EXPANSION  FOR  ALL  PATHS. 

C  ** 

IF(LL.GE. 3. AND.TAU.LT. .5)THEN 
I F ( LBND. EQ. 0 )LBND  =  LL 
IF ( PFAC . LT . 500 )PFAC  =  2*PFAC 
END  IF 

3 SO  CONTINUE 
C  ** 

C  **  END  THE  LOOP  (INDEX  LL)  THAT  SELECTS  THE  INTEGRATION  PANELS.  THE 
C  **  INTEGRATION  IS  NOW  COMPLETE  FOR  ALL  L-O-S  PATHS  FOR  THE  FRESENT  LINE, 

C  «*  EXCEPT  POSSIBLY  FOR  THE  TAIL  CONTRIBUTION,  ADDED  IN  AT  STATEMENT  355 
C  **  FOR  THE  MOST  EXTREME  THICK-LINE  CASES.  (NORMALLY,  EXECUTION  WILL  SKIP 
C  **  OUT  OF  THE  LOOP  DO  350  TO  STATEMENT  360.  IF  THE  LINE  IS  SO  EXTREMELY 
C  **  THICK  THAT  THE  PANEL-EXPANSION  PROCEDURE  HAS  NOT  EVEN  BEEN  INVOKED, 

C  **  A  DIAGNOSTIC  MESSAGE  IS  WRITTEN  TO  UNIT  6  BECAUSE  THE  APPROXIMATION 
C  **  FOR  THE  TAIL  CONTRIBUTION  MAY  BE  IN  ERROR.  GENERALLY  THE  50-PANEL 
C  **  RANGE  OF  THE  LOOP  DO  350  IS  SUFFICIENT  TO  AVOID  THIS  DIFFICULTY.) 

C  ** 

q  *  a********************************************************************** 

c  * 

S  =  DNU*STDW 
DO  355  I  =  1 , ICUR 
I F ( NDP . EQ . 1 ) THEN 

Z1  =  S*A2/DWID( KI ( I ) ) 

TRN(I)  =  EXP ( -Z 1  *  Z1 ) *TRN ( I ) /S 

ELSE 

TRN(I)  =  (  TRN  ( I )  /S  )  *  ( 1 . 0  +  ( DWID  (  Kl  ( I )  ) /S  )  *  *  2/ (  2  '.  *  A2*A2  )  ) 

END  IF 

355  RAO(I)  =  RAD ( I )  +  TRN ( I ) 

IF ( PFAC. EQ. 1 ) WRITE ( 6,127 )BR( J) ,RQL( J) ,TOD(l) ,HTS(1) 

C  * 

£  *  a********************************************************************* 

c  *  * 

c  *  *  ADD  THE  CONTRIBUTIONS  FROM  THE  CURRENT  LINE  TO  THE  CUMULATIVE  RESULT. 

C  *  * 

360  DO  370  I  =  1 , IMAX 
IF( I . LE . INUM ) THEN 

RAW ( I )  =  RAD (I)*H*C*VINIT 
SUM ( I )  =  TRN( I ) *H*C*VINIT 
END  IF 

SUMPH(I)  =  SUMPH(I)  +  RAD(I) 

370  SUMRD(I)  =  SUMRD(I)  +  RAW(I) 

C  *  * 

C  * 
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C  *  IF  ONLY  ONE  LINE  IS  CALCULATED,  PRINT  "HE  APPROXIMATE  RESULT  USED  FOR 
C  *  THE  TAIL  OF  THE  RADIANCE  PROFILE. 

C  * 

IF (FLAG) THEN 

WRITE (4,125) (TRN( I ) , 1=1, INUM) 

WRITE (4, 123) ( SUM ( I ) ,1=1, INUM) 

WRITE (4,100) 

END  IF 

C  * 

C  *  PRINT  OUT  THE  RADIANCE - BOTH  THE  THIN-LINE  APPROXIMATION  AND  THE  RE- 

C  *  SULT  OF  THE  FULL  CALCULATION,  WHENEVER  IT  IS  PERFORMED.  THE  FORMER  IS 

C  *  USED  ONLY  WHEN  THE  LATTER  IS  BYPASSED. 

C  * 

I F ( J . EQ . 1 . AND . LCNT . EQ . 1 ) THEN 

WRITE! 4 ,113) ( HTS ( I ) , HTS ( I ) , 1=1, IMAV) 

WRITE (4, 121) ( BL , I = 1 , IMAX ) 

WRITE (4,101) 

END  IF 

WRITE( 4 , 111 )BR( J) , RQL ( J ) , ( THR ( I ) , 1=1, IMAX) 

I F ( INUM.GT.O ) WRITE ( 4 , 112 ) (  RAW ( I ) ,I  =  i , INUM) 

IF (FLAG) THEN 

WRITE (4,100) 

DO  399  I  =  1,3 

399  WRITE (4,129) ( AST , K=1 , IMAX ) 

GO  TO  400 

END  IF 

C** 

C**  PRINT  OUT  THE  TOTAL  OPTICAL  DEPTHS  AT  THE  LINE  CENTERS  AND  THE  ACCUM- 
C**  ULATING  RADIANCE  (SUMRD)  FOR  EACH  PATH.  ALSO  PRINT  THE  CPU  TIME  USED 
C**  AND  THE  INTEGRATION-PANEL  INDICES.  ALL  THIC  GOES  TO  UNIT  5. 

C*  * 

I F ( J . EO . 1  - AND . LCNT . EQ . 1 ) THEN 

WRITE (5, 11 5) ( HTS ( I ) ,1=1, IMAX) 

WRITE (5, 114) (BL, 1=1, IMAX) 

WRITE (5,101) 

END  IF 

TS  =  SECOND! )  -  TZ 

WRITE (5,1 16 )TS,BR( J) , RQL( J) , LBND , ( LMAX ( I ) , KM ( I ) , SUMRD ( I ) , TOD ( I ) , 

11=1, IMAX) 

Q** 

C **  IF  SPECTRAL  RADIANCE  IS  BEING  CALCULATED,  CALL  SPEC1  TO  ADD  THE  CON- 
C**  TRIBUTION  FROM  THE  CURRENT  LINE  TO  THE  RESULTS  PREVIOUSLY  OBTAINED. 
c** 

NNN  =  NR 

I F ( FWHM . GT . 0 . 0 . AND . NNN . LE . 3 ) CALL  SPEC 1 ( FWHM , VINIT , NNN , IMAX , RAW ) 

C** 

400  CONTINUE 

C**  END  THE  LOOP  (INDEX  J)  THAT  CHOOSES  DIFFERENT  LINES 

C** 

Q  *  ************************************************************************ 

c* 

C*  IF  MORE  THAN  500  LINES  ARE  USED,  BRANCH  TO  LINES3  TO  REREAD  THE  NEXT 
C*  BATCH,  AND  THEN  ENTER  THE  LOOP  DO  400  ONCE  AGAIN.  LCNT  IS  THE  NUMBER 
C*  OF  TIMES  THIS  LOOP  IS  ENTERED. 

C* 

IF ( JMAX . LT . DIML )GO  TO  490 
CALL  LINES3 ( LCNT ) 

LCNT  =  LCNT  ♦  1 
I F ( j  MAX . EQ . 0 ) GO  TO  490 
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non  nnonnnnn 


FLAG  =  .FALSE. 
GO  TO  225 


C* 

C*  WHITE  THE  FINAL  RESULTS  FOR  THE  BAND  RADIANCE  FOR  THE  CURRENT  GRO'J 
C*  OF  PATHS. 

C* 

490  IF ( FLAG ) GO  TO  500 
WHITE( 4 ,100 ) 

DO  491  I  =  1,3 

491  WRITE (4,129) (AST,K=1, 1MAX ) 

WRITE! 4 ,117 ) 

WRITE (4, 119) (SUMRD(I) ,I=1,IMAX) 

WRITE (4, 120) (SUHPH(I) ,I=1,IMAX) 

JMAX  =  JMAX  +  DIME* ( LCNT-1 ) 

WRITE (4,118) JMAX , JCNT 
CS  IF(CMPL) 

DO  492  I  =  1,3 

492  WRITE ( 9 , 129 ) (AST, K=1 , IMAX ) 

WRIT"!  (9,117) 

WRITE (9, 119) (SUMRD(I) ,1=1, IMAX) 

WRITE (9, 120) (SUMPH(I) ,1=1, IMAX) 

WRITE (9,118) JMAX , JCNT 
DO  498  I  =  1,3 

498  WRITE(9, 129) (AST, K=l, IMAX) 

CS  ENDIF 

DO  499  I  =  1,3 

499  WRITE(4, 129) (AST, K=l, IMAX) 

C 

WRITE( 4 , 100 ) 

500  CONTINUE 

* 

*  END  THE  LOOP  (INDEX  NR)  SELECTING  DIFFERENT  GROUPS  OF  VIEWING  PATHS 

* 

*********************************************************************** 


IF  SPECTRAL  RADIANCE  IS  BEING  CALCULATED,  CALL  SPEC2  TO  WRITE  IT  TO 
UNITS  4  AND  7. 

IF ( FWHM . GT .0.0) CALL  SPEC2(FWHM) 

******************************************************************* 


998  I F ( JMAX . EQ . 0 ) THEN 
WRITE (4,990) 
WRITE( 6 , 990  ) 
END  IF 
CLOSE ( 1 ) 

CLOSE ( 2) 

CLOSE ( 3 ) 

REWIND! 4) 

REWIND) 5) 

REWIND! 6) 

CLOSE! 4) 

CLOSE! 5) 

CLOSE! 6) 

END 
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c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


SUBROUTINE  LINES ( VIBE , VIBL , BRNCH ) 

******************************************************************** 


THE  PURPOSE  OF  SUBROUTINE  LINES  IS  TO  PERFORM  INITIALIZATION  STEPS 

READ  UNIT  1 
CALL  ATMPR 
READ  UNIT  3 
CALL  SPECTRN 
SET  COMMON/B/ 

******************************************************************** 


INTEGER  RQL,D£GV,GL,GU,DIML 

LOGICAL  CMPL , FLAG 

PARAMETER ( DIML=500 , CMPL= . FALSE . ) 

CHARACTER*2  BR , BRNCH ( DIML ), BCH 

CHARACTER* 3  MOL 

CHARACTER* 4  UNIT 

CHARACTER *8  UST , LST , US , LS 

CHARACTER* 10  MES ( 2 ) , DATE , TIME 

CHARACTER* 4 7  FMT.MSG 


DIMENSION  V(DIML) , STS (DIML) , ALF ( DIML ) , EDP ( DIML ) , RQL ( DIML ) , HGTS ( SO  ) 
COMMON/B/V , STS , ALF , EDP , RQL , NRL , HGTS , ACC , NPTS , NDP , 

1  WGT , LOOK , NREPS , IMXX , JMAX , FWHM 

SAVE  UST , LST , I SO , BR , VMIN , VMAX , JNUM , FMT 

97  FORMAT ( 1H1 , ' PROGRAM  NLTE  FOR  INFRARED  RADIANCE’, 

1/,'  DATE  = ' , A1 0 , '  TIME  =  ’,A10,/) 

98  FORMAT ( 1H1 ) 

99  FORMAT ( '  *******•******************************************', 

1. ******************',  A  2,/,'  TAPE  Ml) 

100  FORMAT  (  // ,  '  1A  — LINE  DIRECTIVES:',/, 

1/,’  MOL  =  MOLECULE  CODE  =',3X,A3, 

2/,’  ISO  =  ISOTOPE  CODE  =',I6, 

3/,'  UST  =  UPPER  VIB  LVL  =  ',A8, 

4/,'  LST  =  LOWER  VIB  LVL  =  '  ,A8, 

5/,'  BR  =  RO-VIB  BRANCH  =  ’,4X,A2, 

6/,’  NRL  =  ROT ' ' L  LINE  #  =’,I6) 

101  FORMAT(//, ’  IB - VIEWING  PATH  PARAMETERS:',/, 

1/,'  TANI  =  LOWEST  ',A7,'  HEIGHT  (KM)  = ’ , F7 . 2 , 

2/,'  TANF  =  HIGHEST  ’,A7,'  HEIGHT  (KM)  =',F7.2, 

3/,'  SPAC  =  EXAMINATION  INTERVAL  (KM)  =’,F7.2, 

4/,'  LOOK  = ’  , 1 2 , ‘ ;  LOOKING  GEOMETRY  CHOSEN  =’,A7) 

102  FORMAT!//,'  1C - PROGRAM  PARAMETERS:  ',/, 

1/,’  HMAX  =  ASSUMED  TOP  OF  ATMOSPHERE  (KM)  = '  , I  5 , 5X , A1 6 , 

2/,'  ACC  =  ACCURACY  ( INTEG 1 ' D  RADIANCE)  = ’ , F7 . 5 , 

3/,'  NPTS  =  NUMBER  OF  INTEG  POINTS  PER  PANEL  = ' ,13, 

4/,'  NDP  = ' , 1 2 , ' ;  LINESHAPE  OPTION  SELECTED  =’,A22, 

5/,'  VMIN  =  LOWER  END,  LINE  SEARCH  (CM-1)  =',I6, 

6/,'  VMAX  =  UPPER  END,  LINE  SEARCH  (CM-1)  = ' ,16) 

103  FORMAT!//,'  IE - BAND  PARAMETERS:  ',A47,/, 

1/,'  VIBE  =  VIB  ENERGY  OF  THE  TRANSITION  (CM-1)  =',F10.4, 

2/,'  VIBL  =  VIB  ENERGY  OF  THE  LOWER  STATE  (CM-1)  =',F10.4, 

3/,'  VIBQ  =  QUANTUM  FOR  THE  PARTITION  FN  (CM-1)  =',F10.4, 

4/,'  GL  =  STATISTICAL  WEIGHT,  LOWER  VIBRATIONAL  STATE  -',12, 

5/,'  GU  =  STATISTICAL  WEIGHT,  UPPER  VIBRATIONAL  STATE  = ' ,12) 

104  FORMAT!//,'  QUANTITIES  RETURNED  FROM  MOLEC:',/, 
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1  , '  WGT 

=  MOLECULAR 

WEIGHT 

=  '  ,14, 

2  ,  '  AI 

=  ISOTOPIC 

ABUND  = ' 

F7.  5, 

3  , '  DEGV 

( EXPLAINED 

IN  MOLEC) 

=  '  ,14, 

4,  ,  '  PROT 

(EXPLAINED 

IN  MOLEC) 

=’ , F4 . 1 , 

5/ , '  TEXP 

( EXPLAINED 

IN  MOLEC) 

=  1  , F4 . 2  ) 

105  FORMAT (/,'  FORMAT  FOR  THE  SEARCH  OF  THE  LINETAPE  I S ’ , / , IX , A4 7 , / ) 

106  FORMAT (//,'  SSSSS  CARD  IE  NEEDED  BUT  NOT  FOUND,', 

1'  RESULTS  UNPREDICTABLE  $$$$$*,//) 

107  FORMAT (//,*  AFGL  LINE  FILE  FOR  SELECTED  TRANSITION:', 
13X,A3,I6,2X,2(1X,A8) ,/) 

108  FORMAT ( 2X , ' BR  LINE  FREQUENCY 
1’ STRENGTH  WIDTH  LS  ENERGY',/, 

216X , 1 (CM-1) 1 ,  14X, 1 (CM-1)  (CM-1) '  ,/) 

109  FORMAT ( 2X, A2, 1 5, FI 4. 4, Ell. 3, F7 . 3, FI 2. 4) 

110  FORMAT (//,'  PRINT  THE  HEADERS  AND  FIRST  DATA  CARD- IMAGES  FOUND  ’, 

1 'ON  INPUT  UNITS' ,/) 

111  FORMAT(//,'  ID - SYNTHETIC  SPECTRUM  PARAMETERS:',/, 

1/,'  FWHM  =  WIDTH  OF  TRIANGULAR  SCANNING  FN  ( ' , A4 , ' )  =  '  , F7 . 3  , 

2/,'  DEL  =  SPACING  OF  PTS  IN  SYNTH  SPECTRM  { ' , A4 , ' )  =',F7.3) 

112  FORMAT;//,'  ID - SYNTHETIC  SPECTRUM  PARAMETERS:',/, 

1/,'  FWHM  =  0,  SYNTHETIC  SPECTRUM  NOT  GENERATED') 

113  FORMAT;//,'  $$$$  NOTE:  ONLY  50  L-O-S  PATHS  CAN  BE  RUN’,/) 

★★★A***************************************************************** 

INITIALIZATION— UNITS  1-6  ARE  ASSOCIATED  WITH  LOCAL  FILES  TAPE1-TAPE6 
OPEN; 1 ) 

open; 2 ) 
open; 3 ) 
open; 4 ) 
open; 5 ) 
open; 6 ) 
rewind; 2 ) 
rewind; 3 ) 
mes; i)  =  date; ) 

MES ( 2 )  =  time; ) 

WRITE (4,97) MES ( 1 ) ,MES(2) 

WRITE (5,97) MES ( 1 ) ,MES(2) 

WRITE (6,97) MES ( 1 ) , MES ( 2 ) 

BCH  =  ' 

I  =  1 

WRITE; 4 , 99 )BCH, I 
C$  IF(CMPL) 

OPEN ( 9 , FILE= ' OUTPUT ' ) 

WRITE; 9 , 97 )MES( 1 ) ,MES( 2 ) 

WRITE; 9,99) BCH, I 
C$  EN’DIF 

I  =  5 

WRITE (5, 99) BCH, I 
I  =  6 

WRITE; 6 , 99 )BCH, I 
WRITE; 6 ,110) 

c 

~  ********************************************************************* 

c 

c 

C  READ  IN  MODELLING  DATA  FROM  CARDS - UNIT  1 

C 

C****  CARD  1A  LINE  DIRECTIVES  CARD - LIST-DIRECTED  READ 
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c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c*  *  *  * 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c*  *  *  * 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


MOL  =  MOLECULE  CODE  (INPUT  AS  'C 02’,  ETC.  INCLUDING  QUOTES ) 

ISO  =  ISOTOPE  CODE  (INTEGER) 

UST  =  UPPER  VIB  STATE  ( AFGL  LINE  FILE  NOTATION;  INCLUDE  QUOTES) 

LST  =  LOWER  VIB  STATE  (AFGL  LINE  FILE  NOTATION;  INCLUDE  QUOTES) 

BR  =  BRANCH  (P,  Q,  OR  R)  (INPUT  AS  ’P1,  ETC.) 

NRL  =  ROTATIONAL  LINE  NUMBER  (INTEGER) 

WHEN  BR  =  ’A',  THE  P,  Q,  AND  R  BRANCHES  ARE  ALL  EVALUATED  (DEFAULT) 

WHEN  NRL  =  999  ALL  LINES  IN  THE  CHOSEN  BRANCH  ARE  EVALUATED  (DEFAULT) 

INDIVIDUAL  LINES  CAN  BE  SELECTED  BY  SETTING  BR  TO  ’ P ’ ,  ' Q *  ,  OR  ’ R ' 

AND  SETTING  NRL  EQUAL  TO  THE  DESIRED  LINE  NUMBER. 


CARD  IB  VIEWING  PATH  PARAMETERS  CARD - LIST-DIRECTED  READ 

TANI  =  SMALLEST  TANGENT  HEIGHT  OR  OBSERVATION  HEIGHT  (KM) 

TANF  =  GREATEST  TANGENT  HEIGHT  OR  OBSERVATION  HEIGHT  (KM) 

SPAC  =  EXAMINATION  INTERVAL  (KM)  (DEFAULT  =  +1  KM) 

IN  LIMB-LOOKING  GEOMETRY  THE  LINE-OF-SIGHT  PATH  IS  PARAMETERIZED  BY  A 
TANGENT  HEIGHT  (LOOK  =  0);  IN  ZENITH-LOOK  GEOMETRY  IT  IS  PARAMETER¬ 
IZED  BY  AN  OBSERVATION  HEIGHT  (LOOK  =  1).  IF  SPAC  >  0,  LIMB-LOOK  GEO¬ 
METRY  IS  ASSUMED;  IF  SPAC  <  0,  ZENITH-LOOK  IS  ASSUMED.  IN  THE  LATTER 
CASE,  ABS ( SPAC )  IS  USED  FOR  THE  EXAMINATION  INTERVAL. 


CARD  1C  PROGRAM  PARAMETERS  CARD - LIST-DIRECTED  READ 

HMAX  =  ALTITUDE,  "TOP"  OF  USEFUL  ATMOSPHERE  (KM;  DEFAULT  =  1001) 
ACC  =  FRACTIONAL  ERROR  ALLOWABLE,  INTEGRATED  INTENSITY  IN  A  LINE 

(DEFAULT  =  .01;  MAXIMUM  =  .05) 
NPTS  =  NUMBER  OF  INTEGRATION  PTS  PER  PANEL  (NU-INTEG;  DEFAULT  =  4) 
NDP  =  LINESHAPE  CODE:  VOIGT  ( NDP  =  0;  DEFAULT)  OR  DOPP  ( NDP  =  1) 
VMIN  =  LOWER  END,  FREQUENCY  RANGE  SEARCHED  FOR  RO-VIB  LINES  (CM-1) 
VMAX  =  UPPER  END,  FREQUENCY  RANGE  SEARCHED  FOR  RO-VIB  LINES  (CM-1) 

ANY  VALUE  OF  HMAX  FALLING  BETWEEN  TANF  AND  THE  LARGEST  ALTITUDE  FOUND 
IN  THE  ATMOSPHERIC  PROFILE  IS  ACCEPTABLE.  IF  HMAX  IS  NOT  WITHIN  THESE 
LIMITS,  THE  PROGRAM  ADJUSTS  IT  AND  PRINTS  A  MESSAGE. 

ACC  DETERMINES  WHETHER  TO  ACCEPT  THE  THIN-LINE  APPROXIMATION  FOR  THE 
INTEGRATED  RADIANCE  OF  THE  INDIVIDUAL  LINES,  OR  NOT.  (IF  ACCEPTED  THE 
MAIN  CALCULATION  IS  BYPASSED  AND  THE  RESULT  IS  OBTAINED  A  GREAT  DEAL 
MORE  QUICKLY.)  THE  CRITERION  FOR  ACCEPTANCE  IS  BASED  ON  THE  EMPIRICAL 
OBSERVATION  THAT  THE  FRACTIONAL  ERROR  IS  ABOUT  TAU/3 ,  WHERE  TAU  IS 
THE  OPTICAL  DEPTH  AT  LINE  CENTER  ALONG  THE  L-O-S  PATH.  (THIS  HOLDS 
FOR  TAU  <  .5.)  ACC  ALSO  DETERMINES  WHERE  TO  CUT  OFF  THE  NUMERICAL  IN¬ 
TEGRATION  AND  SUBSTITUTE  THE  ANALYTICAL  EXPRESSION  FOR  THE  CONTRIBU¬ 
TION  IN  THE  TAIL  OF  THE  RADINCE  PROFILE,  WHEN  THE  THICK-LINE  CALCUL¬ 
ATION  IS  PERFORMED. 

POSSIBLE  VALUES  OF  NPTS  ARE  2,  4,  AND  8.  THE  PROGRAM  CHANGES  UNACCEP¬ 
TABLE  VALUES  TO  ONE  OF  THESE. 

VMIN  AND  VMAX  LIMIT  THE  LINE-FILE  SEARCH  TO  A  CERTAIN  RANGE  OF  LINE 
POSITIONS.  DEFAULT  IS  TO  SEARCH  THE  ENTIRE  FILE. 


CARD  ID  SYNTHETIC  SPECTRUM  CARD - LIST-DIRECTED  READ 
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c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c*  *  *  * 

c 

c 

c 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 


FWHM  =  FULL  WIDTH  HALF  MAX  OF  TRIANG  SCAN  FN  (CM-1  OR  UM :  DEF  =  0) 
DEL  =  SPACING  OF  PTS  IN  SYNTH  SPECTRUM  (CM-1  OR  UM:  DEF  =  1  CM-1) 
UNIT  =  'CM-1'  OR  'UM  ' :  ENERGY  OR  WAVELENGTH  UNITS  (DEF  =  'CM-1') 

WHEN  FWHM  >  0,  SUBROUTINE  SPECTRM  IS  CALLED  TO  GENERATE  A  SYNTHETIC 
SPECTRUM,  USING  A  TRIANGULAR  SCANNING  FUNCTION.  THE  ALGORITHM  ASSUMES 
THAT  FWHM  IS  MUCH  GREATER  THAN  THE  BREADTH  OF  THE  INDIVIDUAL  RADIANCE 
PROFILES.  ONLY  3  PLACES  AFTER  THE  DECIMAL  ARE  RETAINED  IN  THE  VALUES 
OF  FWHM  AND  DEL. 


CARD  IE  BAND  PARAMETERS  CARD - LIST  DIRECTED  READ 

VIBE  =  VIBRATIONAL  ENERGY  (CM-1)  OF  THE  RADIATIVE  TRANSITION 

VIBL  =  VIBRATIONAL  ENERGY  (CM-1)  OF  THE  LOWER  STATE 

VIBQ  =  VIBRATIONAL  QUANTUM  (CM-1)  IN  THE  PARTITION  FUNCTION 

GL  =  STATISTICAL  WEIGHT  OF  THE  LOWER  VIBRATIONAL  STATE 

GU  =  STATISTICAL  WEIGHT  OF  THE  UPPER  VIBRATIONAL  STATE 


xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 


IMPORTANT  NOTE: 

CARD  IE  IS  SUPERFLUOUS  FOR  CERTAIN  TRANSITIONS  OF  C02  AND  NO 
BECAUSE  THE  ENERGIES  AND  STATISTICAL  WEIGHTS  OF  MANY  VIBRA¬ 
TIONAL  LEVELS  ARE  STORED  IN  BLOCK  DATA  MOLPAR.  IF  THE  PRO¬ 
GRAM  LOCATES  THE  PROPER  QUANTITIES,  THIS  CARD  IS  NOT  READ; 
OTHERWISE  IT  IS  READ.  IF  THE  USER  IS  UNCERTAIN  ABOUT  WHETHER 
THE  TRANSITION  WILL  BE  FOUND  IT  IS  BETTER  TO  INCLUDE  IT,  BE¬ 
CAUSE  IE  IS  THE  LAST  CARD-IMAGE  ON  TAPE1  AND  NO  SUBSEQUENT 
INFORMATION  CAN  BE  MISREAD  IF  THIS  CARD  IS  NOT  NEEDED. 


X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 


XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 


************************************0******************************** 

SET  DEFAULT  VALUES  FOR  SOME  PARAMETERS  READ  IN  ON  CARDS  1A-1D 

BR  =  'A' 

NRL  =  999 
TANF  =  -1.0 
SPAC  =  1.0 

HMAX  =  1001 

ACC  =  .01 
NPTS  =  4 
NDP  =  0 
FWHM  =0.0 
VMIN  =0.0 
VMAX  =  20000. 

DEL  =1.0 
UNIT  =  'CM-1' 

CALL  HEADER( 1) 


C*  *  *  * 1A 


READ( 1 , * )MOL, ISO,UST,LST,BR,NRL 
WRITE! 4 , 100 )MOL, ISO,UST,LST, BR , NRL 
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non 


c 

C*  *  *  *  IB 

Q*  *  *  *  * 

READ ( 1 , * ) TANI , TANF , SPAC 
IF ( TANF . LT . TANI ) TANF  =  TANI 
IF ( SPAC .GE . 0 . 0 ) THEN 
LOOK  =  0 

MSG (1:7)  =  ’  LIMB' 

MSG {8:14)  =  'TANGENT' 

IF ( SPAC. EQ. 0.0) SPAC  =  1.0 

ELSE 

LOOK  =  1 

MSG (1:7)  =  '  ZENITH' 

MSG (8:14)  =  'OBSERV.' 

SPAC  =  ABS(SPAC) 

END  IF 

WRITE (4, 101) MSG( 8: 14) ,TANI , MSG ( 8 : 14 ) , TANF, SPAC , LOOK , MSG ( 1 : 7 ) 

SET  PARAMETERS  RELATED  TO  L-O-S  PATHS - HGTS,  IKXX,  NREPS 

DO  170  I  =  1,50 
HGTS ( I )  =  TANI  +  ( 1-1 ) *SPAC 
IF ( HGTS ( I) .GT. TANF) GO  TO  175 
170  IMXX  =  I 

WRITE( 4 , 113 ) 

WRITE( 6 , 113 ) 

175  NREPS  =  IMXX/5 

IF( ( 5*NREPS) .NE. IMXX) NREPS  =  NREPS  +  1 
C 

C****ic 

C*  *  *  ** 

READ ( 1 , * ) HMAX , ACC , NPTS , NDP , VMIN , VMAX 
MSG (32:47)  =  1 
I  =  HMAX 

IF(I.EQ.lOOl) MSG (32:47)  *  ’(RESET  IN  ATMPR ) ’ 

HMAX  =  I 

IF(ACC.GT. .05)ACC  =  .05 
IF ( NPTS. GT. 4) THEN 
NPTS  =  8 

ELSE  IF ( NPTS. LT. 4) THEN 
NPTS  =  2 
END  IF 

MSG (1:22)  =  ’  VOIGT 
I F ( NDP . EQ . 1 ) MSG (1:7)  =  ’DOPPLER' 

I F ( NDP . LT . 0 ) MSG (12:22)  =  ’ (USE  VWERF) ’ 

IF  (  FWHM .  LT .  0 . 0  )  FWHM  =0.0 
JMAX  =  I NT ( VMIN ) 

N  =  I NT ( VMAX ) 

WRITE(4, 102)1 ,MSG (32:47) , ACC , NPTS , NDP, MSG (1:22) , JMAX , N 
C 

C****id 

C*  *  *  ** 

READ ( 1 , * ) FWHM , DEL , UNIT 
IF ( FWHM. GT. 0.0) THEN 

FWHM  =  INT( 1000 . *FWHM  +  0.5)/1000. 

DEL  =  INT( 1000 . *DEL  +  0.5)/1000. 

WRITE(4, 111 ) UNIT, FWHM, UNIT, DEL 

ELSE 

WRITE ( 4 , 112 ) 

END  IF 


119 


c 

C  CALL  MOLEC  TO  ESTABLISH  VALUES  OF  QUANTITIES  AND  PROGRAM  PARAMETERS 

C  UNIQUELY  ASSOCIATED  WITH  THE  RADIATING  MOLECULE,  AND  TO  SEE  IF  IT  IS 

C  NECESSARY  TO  READ  CARD  IE. 

C 

CALL  MOLEC (MOL, ISO, UST , LST , I , DEGV, PROT , TEXP , VIBE , VIBL , VIBQ , 

1  GL , GU , AI , FMT , FLAG ) 

C 

WGT  =  FLOAT (I)/6.02486E+23 
MSG  =  '(FOUND  IN  MOLPAR)' 

IF (FLAG) THEN 
C 

C****1E 

£***** 

READ( 1 , * , END=190 ) VIBE, VIBL, VIBQ, GL, GU 
MSG  =  ' (READ  IN) ' 

END  IF 
GO  TO  195 

190  MSG  =  '$$$$$  NEITHER  IN  MOLPAR  NOR  READ  IN  $$$$$' 

WRITE l 4,106) 

WRITE( 6 , 106 ) 

195  WRITE ( 4 ,103 )MSG, VIBE, VIBL, VIBQ, GL,GU 
C 

C  PRINT  SOME  OF  THE  PARAMETERS  RETURNED  FROM  MOLEC 

C 

WRITE ( 4, 104 ) I, AI, DEGV, PROT, TEXP 
WRITE (4, 105) FMT 
WRITE (4,99) 

WRITE( 4,98) 

C 

I  =  2 

WRITE (4,99) BCH ,  I 
C$  IF(CMPL) 

WRITE( 9 , 109 ) 

WRITE( 9 , 99 ) BCH , I 
CS  ENDIF 

C 

Q  ********************************************************************* 

C 

C  CALL  SUBROUTINE  ATMPR  TO  READ  IN  AND  PREPARE  THE  ATMOSPHERIC  PROFILE. 

C  SEE  INPUT  REQUIREMENTS  IN  THE  COMMENTS  IN  ATMPR. 

C 

£  a******************************************************************** 

C 

CALL  ATMPR ( MOL , AI , VIBE , VIBL , VI BQ , GL , GU , DEGV , PROT , TEXP , TANI , TANF , 
1HMAX) 

C 

Q  *★*****★****★***★****★***★***★***★******★*********★***★****★**★**★*** 

C 

r  ********************************************************************* 

c 

C  CARD  3  AFGL  LINE  FILE  CARDS - UNIT  3 

C 

C  THIS  SECTION  READS  THE  AFGL  LINE  FILE  AND  SELECTS  LINES  OF  INTEREST 

C  BASED  ON  THE  CRITERIA  SPECIFIED  IN  OF  THE  VI RIABLES  READ  ON  CARD  1A. 

C  MOST  OF  THE  VARIABLES  READ  IN  (VINIT,  ST,  AL,  ED...)  ARE  STORED  IN 

C  ARRAYS  (V,  STS,  ALF,  EDP . . . ) 

C 

C  VINIT  (V)  =  FREQUENCY  OF  VIBRATIONAL  TRANSITION  ( CM- 1 ) 

C  ST  (STS)  =  LINE  INTENSITY  ( CM- 1/MOLECULE-CM2 ) 
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AL  (ALF)  =  LORENTZ  HALF-WIDTH  AT  296  K  AND  1  ATMOS 

( CM- i /ATMOS ) 

ED  ( EDP )  =  ENERGY  OF  THE  LOWER  RO-VIB'L  STATE  ( CM- 1 ) 
US,  LS  =  UPPER  AND  LOWER  STATE  QUANTUM  DESIGNATIONS 
BCH  (BRNCH)  =  BRANCH  (P,  Q,  OR  R) 

N  ( RQL )  =  ROTATIONAL  LINE  NUMBER 

I  =  ISOTOPE  CODE 


A******************************************************************* 


PRINT  HEADERS 
I  =  3 

WRITE ( 4,98) 

WRITE (4, 99) BCH,  I 
5  IF(CMPL) 

WRITE (9,109) 

WRITE (9,99) BCH , I 
S  ENDIF 

WRITE ( 4 ,109 ) 

CALL  HEADER ( I ) 

WRITE! 6 , 109 ) 

WRITE! 4 ,107 )MOL, ISO,UST,LST 
WRITE (4,108) 

SHIFT  UST  AND  LET  TO  RIGHT-JUSTIFIED  CHARACTER  VARIABLES,  SET  FLAG. 

CALL  SHFT ( UST , US ) 

CALL  SHFT ( LST, LS ) 

FLAG  =  (MOL.EQ. 'H20' ) .OR. (MOL.EQ. '03  1 ) . OR . ( MOL . EQ . ' CH4 ' ) 

JMAX  COUNTS  THE  TOTAL  NUMBER  OF  LINES  TO  BE  USED 
JNUM  COUNTS  THE  TOTAL  NUMBER  OF  LINES  READ,  USING  J 

HMAX  =  VMIN 
TEXP  =  VMAX 
JMAX  =  0 
J  =  0 

*  *  *  *  j 

*  *  *  *  * 

200  READ ( 3 , FMT , END  =  9 98 ) VINIT , ST , AL , ED , US , LS , BCH , N , I 
J  =  J  +  1 

CHECK  THE  LINEFILE  FOR  THE  CORRECT  ISOTOPE  AND  BAND,  AND  POSSIBLY 
FOR  THE  CORRECT  BRANCH  AND  LINE.  IF  THE  DOPPLER  LINESHAPE  OPTION 
( NDP  =1)  IS  SELECTED,  THE  LORENTZ  LINEWIDTHS  ARE  SET  TO  ZERO. 
READ  THE  WHOLE  FILE  ON  THE  FIRST  CALL.  IF  THERE  ARE  MORE  THAN  DIML 
LINES,  THE  END  OF  THE  FILE  WILL  BE  REREAD  FROM  ENTRY  LINES3  WHEN 
IT  IS  NEEDED.  JMAX  IS  THE  TOTAL  NUMBER  OF  LINES  SELECTED.  J  IS 
THE  TOTAL  READ. 

IF(VINIT.LT. VMIN ) GO  TO  200 

IF ( VINIT. GT. VMAX) GO  TO  200 

IF ( ISO . NE . I )  GO  TO  200 

IF(UST.NE.US) GO  TO  200 

IF ( LST . NE . LS ) GO  TO  200 

I F ( BR . NE . ' A ' . AND . BR . NE . BCH )  GO  TO  200 

IFfNRL.NE.N. AND.NRL.NE. 999 )  GO  TO  200 
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JMAX  =  JMAX  +  1 
IF (FLAG) THEN 
BCH  =  '#  ' 

N  =  JMAX 
END  IF 

WRITE ( 4  < 109 ) BCH ,N, VINIT, ST, AL , ED 
IF(VINIT.LT.T£XP)TEXP  =  VINIT 
IF(VINIT.GT.HMAX)HMAX  =  VINIT 
IF ( JMAX . GT . DIML )GO  TO  200 
JNUM  =  J 
V(JMAX)  =  VINIT 
STS (JMAX)  =  ST 
ALF(JMAX)  =  AL 
I F ( NDP . EQ . 1 ) ALF ( JMAX )  =  0.0 
EDP(JMAX)  =  ED 
BRNCH ( JMAX )  =  BCH 
RQL(JMAX)  =  N 
GO  TO  200 
C 

998  VMIN  =  TEXP 
VMAX  =  HMAX 
WRITE ( 4 , 109  ) 

WRITE( 4,99) 

CALL  SPECTRM  TO  INITIALIZE  FILES  AND  ARRAYS  FOR  THE  SYNTHETIC  SPEC¬ 
TRUM,  IF  NECESSARY.  THEN  RETURN  TO  NLTE . 

IF ( JMAX . LE . 1 ) FWHM  =  0.0 

I F ( FWHM . GT . 0 . 0 ) CALL  SPECTRM ( VMIN , VMAX , DEL , FWHM , UNIT , 

1  MOL ,ISO, UST , LST , BR , HGTS , IMXX , LOOK , MES ) 

RETURN 

ft******************************!!************************************* 

ENTRY  TO  REREAD  THE  PART  OF  THE  LINEFILE  PAST  THE  FIRST  DIML  LINES 
ENTRY  LINES3(LCNT) 

SKIP  PAST  THE  HEADER  AND  THE  LINES  ALREADY  READ 

CALL  REWND ( 3 ) 

DO  295  J  =  1 , JNUM 
295  READ (  3 , 1 0 9  )  BCH 

REREAD  THE  NEXT  BATCH  OF  LINES 

JMAX  =  0 

300  READ ( 3 , FMT , END=9 9 9 ) VINIT , ST , AL , ED , US , LS , BCH , N , I 
JNUM  =  JNUM  +  1 
IF(VINIT.LT. VMIN ) GO  TO  300 
IF ( VINIT. GT. VMAX) GO  TO  300 
I F ( ISO.NE. I )  GO  TO  300 
IF ( UST . NE . US ) GO  TO  300 
IF(LST.NE.LS)GO  TO  300 
IF(BR.NE. 'A' . AND . BR . NE . BCH )  GO  TO  300 
IF(NRL.NE.N.AND.NRL.NE. 999 )  GO  TO  300 
C 

JMAX  =  JMAX  +  1 
V ( JMAX )  =  VINIT 
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STS(JMAX)  =  ST 
ALF(JMAX)  =  AL 
I F ( NDP . EQ . 1 ) ALF ( JMAX )  =  0.0 
EDP(JMAX)  =  ED 
BRNCH(JMAX)  =  BCH 
RQL(JMAX)  =  N 
IF (FLAG) THEN 

BRNCH ( JMAX )  =  '#  ' 

RQL(JMAX)  =  JMAX  +  DIML*LCNT 
END  IF 

I F ( JMAX . LT . DIML ) GO  TO  300 
999  RETURN 
C 

Q  ********************************************************************* 

c 

END 
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SUBROUTINE  ATMPR ( MOL , AI , VIBE , VIBL , VIBQ , GL , GU , DEGV , PROT , TEXP , TAN! , 
1TANF , HMAX ) 

C 

q  a******************************************************************** 

C 

C  SUBROUTINE  FOR  READING,  ORGANIZING,  AND  PRINTING  THE  ATMOSPHERIC  PRO- 

C  FILE  FOUND  ON  TAPE2 ,  AND  FOR  SETTING  UP  COMMON/A/.  OF  THE  TOTAL  CON- 

C  TENTS  OF  /A/,  ONLY  THE  FIRST  7  (OUT  OF  13)  ARRAYS,  PLUS  THE  ORDINARY 

C  VARIABLES  ARE  NEEDED  BY  THE  MAIN  PROGRAM.  C2  AND  BST  ARE  SET  IN  THE 
C  MAIN  PROGRAM. 

C 

Q  ★**★*■******★****★*********★*****★*★★*********★**★**★****★*****#****** 

c 

c 

C  THE  DATA  WHICH  MAY  BE  READ  ARE: 

C 

C  *  ALT  ALTITUDE  (KM) 

C  *  TRTMP  TRANSLATIONAL  TEMPERATURE  (KELVIN) 

C  *  RHO  TOTAL  NUMBER  DENSITY  OF  RADIATING  MOLECULE  ( CM- 3 ) 

C  NL  NUMBER  DENSITY  OF  LOWER  VIBRATIONAL  LEVEL  (CM-3)  (REAL) 

C  NU  NUMBER  DENSITY  OF  UPPER  VIBRATIONAL  LEVEL  (CM-3)  (REAL) 

C  **TVL  VIBRATIONAL  TEMPERATURE  DESCRIBING  LOWER  LEVEL  (KELVIN) 

C  *  TVU  VIBRATIONAL  TEMPERATURE  DESCRIBING  UPPER  LEVEL  (KELVIN) 

C 

C  *  TVQ  VIBRATIONAL  TEMPERATURE  DESCRIBING  LOWEST  EXCITED  LEVEL  (K) 

C  NO  NUMB  DENS,  GROUND  VIBRATIONAL  LEVEL  (CM-3)  (FOR  P  FN ;  REAL) 

C  N1  NUMB  DENS,  FIRST  EXCITED  VI B  LEVEL  (CM-3)  (FOR  P  FN;  REAL) 

C 

C  THESE  QUANTITIES  ARE  NOT  ALL  REQUIRED.  THE  ATMOSPHERIC  PROFILES  MAY 

C  BE  DEFINED  IN  TERMS  OF  NUMBER  DENSITIES  OR  VIBRATIONAL  TEMPERATURES, 

C  AND  THE  PROGRAM  AUTOMATICALLY  RECOGNIZES  CERTAIN  COMBINATIONS  WHICH 

C  ARE  LISTED  BELOW.  (SEE  THE  LATER  COMMENTS.)  THE  QUANTITIES  WITH  SIN- 

C  GLE  ASTERISKS  ARE  DIRECTLY  USED  BY  NLTE  (FOR  HOT  BANDS,  TVL  IS  ALSO). 

C  THEY  MUST  THEREFORE  BE  READ  DIRECTLY  OR  CALCULATED  BY  ATMPR. 

C 

C  FOR  REGULAR  BANDS,  POSSIBLE  PROPER  COMBINATIONS  OF  INPUT  DATA  ARE: 

C 

C  INDEX 

C  1.  ALT, TRTMP, RHO, TVU, TVQ 

C  2.  ALT, TRTMP, RHO, TVU, NO, N1 

C  3.  ALT, TRTMP, NL,NU, TVQ 

C  4.  ALT, TRTMP, NL,NU, NO, N1 

C 

C  IN  ADDITION,  FOR  REGULAR  BANDS  THE  PROGRAM  WILL  ACCEPT: 

C 

C  5.  ALT, TRTMP, RHO, TVU  1  0 

C  6.  ALT, TRTMP, NL,NU  2  0 

C 

C  FOR  HOT  BANDS,  POSSIBLE  COMBINATIONS  ARE: 

C 

C  7 .  ALT , TRTMP , RHO , TVL , TVU , TVQ  1  1 

C  8.  ALT, TRTMP, RHO, TVL, TVU, NO ,N1  1  2 

C  9.  ALT , TRTMP , RHO , NL , NU , TVQ  2  1 

C  10.  ALT, TRTMP, RHO, NL , NU , NO, N1  2  2 

C 

C  FOR  EITHER  REGULAR  OR  HOT  BANDS,  LTE  CONDITIONS  ARE  IMPLIED  BY 

C 

C  11.  ALT, TRTMP, RHO  3  3 

C 


NVP  NPF 
1  1 
1  2 
2  1 
2  2 
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c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


THE  FORMAT  FOR  ALL  THESE  POSSIBILITIES  IS  ( F5 . 1 , FI 0 . 3 , 5 El 2 . 5 ) .  THE 
PROGRAM  IDENTIFIES  THE  OPTION  SELECTED  AND  CALCULATES  THE  REQUIRED 
QUANTITIES  WHICH  ARE  NOT  DIRECTLY  READ  IN.  IN  THE  CASE  OF  OPTIONS 
5  AND  6,  APPROXIMATIONS  ARE  NECESSARILY  MADE  UNLESS  THE  RADIATING 
LEVELS  ARE  THE  GROUND  AND  FIRST  EXCITED  VIBRATIONAL  STATES.  THAT 
IS,  THE  VIBRATIONAL  PARTITION  FUNCTION  WILL  BE  CALCULATED  USING 
THE  TWO  RADIATING  STATES  INSTEAD  OF  THE  GROUND  AND  FIRST  EXCITED 
STATES,  AND  IT  WILL  BE  SLIGHTLY  IN  ERROR  AS  A  RESULT.  SEE  THE  COM¬ 
MENTS  IN  THE  OUTPUT. 

FOR  HOT  BANDS  IN  WHICH  THE  VIBRATIONAL  TEMPERATURES,  TVL  AND  TVU , 
CAN  BE  ASSUMED  IDENTICAL,  ZEROES  IN  THE  TVU  DATA  FIELD  WILL  RESULT 
IN  DATA  FOR  TVL  BEING  USED  FOR  TVU  AS  WELL  (OPTIONS  7  AND  8  ONLY). 

IMPORTANT  NOTE: 

THE  NUMBER  DENSITIES  NL  AND  NU  REFLECT  THE  ABUNDANCE 
OF  THE  ISOTOPE  UNDER  CONSIDERATION.  RHO,  ON  THE  OTHER  HAND,  IS  THE 
TOTAL  NUMBER  DENSITY  OF  THE  SPECIE,  INCLUDING  ALL  ISOTOPES. 

ANOTHER  IMPORTANT  NOTE: 

THE  PROGRAM  AUTOMATICALLY  DISTINGUISHES  AMONG  THE  ELEVEN  CASES  CI¬ 
TED  ABOVE.  IT  DOES  SO  BY  READING  THE  FIRST  DATA  CARD-IMAGE  (COR¬ 
RESPONDING  TO  THE  LOWEST  ALTITUDE  ON  THE  ATMOSPHERIC-PROFILE  DATA 
FILE)  AND  LOOKING  AT  NUMERICAL  VALUES  OF  SOME  OF  THE  QUANTITIES 
READ.  THE  CRITERIA  USED  TO  DISTINGUISH  BETWEEN  THE  VARIOUS  CASES 
ARE  GIVEN  BEi,OW ,  FOLLOWED  BY  THE  RULES  FOR  INTERPRETING  THE  FIELDS 
AND  FIXING  THE  CORRESPONDING  VALUES  OF  NVP  AND  NPF.  THE  INTERPRE¬ 
TATIONS  ARE  MADE  IN  SUBROUTINE  OPTION  AND  PRINTED  AS  DIAGNOSTIC 
OUTPUT  ON  UNIT  6. 

THE  NUMERICAL  VALUE,  X,  FOUND  IN  THE  5TH  DATA  FIELD  ( 6TH ,  FOR  HOT 
BANDS)  IS  USED  TO  DETERMINE  NPF: 

(A)  IF  X.LE.O,  DATA  FOR  THE  PARTITION  FUNCTION  ARE  ABSENT,  SET 

NPF  =  0. 

(B)  IF  0<X<10000,  FIELD  5  (6  FOR  HOT  BANDS)  IS  ASSUMED  TO  BE  A  VI¬ 

BRATIONAL  TEMPERATURE,  TVQ.  SET  NPF  =  1. 

(C)  IF  X.GE. 10000,  FIELDS  5  AND  6  (6  AND  7  FOR  HOT  BANDS)  ARE  AS¬ 

SUMED  TO  BE  NUMBER  DENSITIES,  NO  AND  N1 . 

SET  NPF  =  2. 

THE  NUMERICAL  VALUE,  Y,  FOUND  IN  THE  4TH  DATA  FIELD  IS  USED  TO  DE¬ 
TERMINE  NVP: 

(D)  IF  Y.LE.0,  DATA  FOR  THE  RADIATING  LEVELS  ARE  ABSENT,  AND  LTE 

CONDITIONS  ARE  ASSUMED  (ALSO  FOR  THE  PARTITION  FUN¬ 
CTION,  REGARDLESS  OF  CRITERIA  (A)-(C).)  COLUMN  3  IS 
INTERPRETED  AS  THE  TOTAL  NUMBER  DENSITY,  RHO.  SET 

NVP  =  3. 

(E)  IF  0<Y<1000 ,  FIELD  4  IS  ASSUMED  TO  BE  A  VIBRATIONAL  TEMPERA¬ 

TURE,  TVU  (FIELDS  4  AND  5  FOR  HOT  BANDS,  TVL  AND 
TVU).  FIELD  3  IS  THE  TOTAL  NUMBER  DENSITY,  RHO,  IN 

EITHER  CASE.  SET  NVP  =  1. 

(F)  IF  Y.GE.1000,  FIELDS  3  AND  4  (4  AND  5  FOR  HOT  BANDS)  ARE  AS¬ 

SUMED  TO  BE  NUMBER  DENSITIES,  NL  AND  NU . 
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non 


SET  NVP 


C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 


c 


=  2. 


OVERRIDES: 

IT  IS  POSSIBLE  TO  OVERRIDE  ANY  OF  THE  RULES  LISTED  ABOVE 
WITH  THE  CRITERIA  (A)  THRU  (F)  BY  ENTERING  CERTAIN  CHARACTER  DATA 
ANYWHERE  WITHIN  A  FIELD  COMPRISING  COLUMNS  76  THROUGH  90  (ON  THE 
LOWEST-ALTITUDE  CARD  ONLY).  THERE  ARE  TWO  COMMON  REASONS  FOR  DOING 
THIS.  FIRST,  ONE  MAY  WISH  TO  CALCULATE  RESULTS  FOR  LTE  CONDITIONS 
REGARDLESS  OF  THE  VIBRATIONAL  TEMPERATURES  OR  NUMBER  DENSITIES  ON 
THE  FILE.  SECOND,  FOR  HIGH-LYING  STATES  THE  NUMBER  DENSITIES  MAY 
ACTUALLY  HAVE  VALUES  BELOW  1000  SO  THAT  CRITERIA  (E)  AND  (F)  COULD 
BE  CONFUSED. 

ACCEPTABLE  VALUES  FOR  THE  OVERRIDE  CHARACTER  DATA  ARE: 


SYMBOL 

MEANING 

LTE 

LTE  CONDITIONS 

PREVAIL 

T ,  T 

RULES 

(B) 

AND 

(E) 

APPLY, 

REGARDLESS 

OF 

VALUES 

OF 

X 

AND 

Y 

T ,  N 

RULES 

(B) 

AND 

(F) 

APPLY, 

REGARDLESS 

OF 

VALUES 

OF 

X 

AND 

Y 

N ,  T 

RULES 

(C) 

AND 

(E) 

APPLY, 

REGARDLESS 

OF 

VALUES 

OF 

X 

AND 

Y 

N,N 

RULES 

(C) 

AND 

(F) 

APPLY, 

REGARDLESS 

OF 

VALUES 

OF 

X 

AND 

Y 

****************************************************************** 


INTEGER  A,GL,GU,DEGV 
REAL  NO , N1 , NL , NU 
CHARACTER *1  AST(5) 

CHARACTER* 3  MOL 
CHARACTER* 15  CODE 

DIMENSION  DUM( 250 ) , TRTMP ( 250 ), PRESS ( 250 ) ,RHO( 250 ) ,TVL( 250 ) 
DIMENSION  TVU ( 250 ) , QV ( 250 ) , NL ( 250 ) , NU ( 2 50 ) ,TVQ(250) , NO (250) 
DIMENSION  N1 ( 250 ) , ALT (250) , PR (192) 

COMMON/A/ALT , TRTMP , PRESS , RHO , TVL , TVU , QV , NL , NU , TVQ , NO , N1 , DUM , 
1  KMAX,C2,BST,TMIN 

COMMON/P/PR 


100  FORMAT ( BZ ,F5.0,F10.3,5E12.5,A15) 

101  FORMAT ( //, '  $$$$$  ATMOSPHERIC  PROFILE  STARTS  ABOVE  TANI ,  ADJUST', 
1'  TANI  TO' ,F7. 2, 1  KM  $$$$$',//) 

102  FORMAT ( // , '  $$$$$  HMAX  GREATER  THAN  ALTITUDE  OF  UPPERMOST  ', 

1' POINT  OF  ATMOSPHERIC  PROFILE,  RESET  HMAX  TO',F7.2,'  KM  $$$$$', 
2//) 

103  FORMAT!/,'  INPUT  OPTION  #',I3,’;  NVP  =',I2,',  NPF  =',I2, 

1',  VIBL  1 , A1 , '  0;  (SEE  COMMENTS  IN  ATMPR ) ' , / ) 

104  FORMAT! // , 2X , '  $$$$$  SUBSTITUTE  TVU  FOR  TVQ,  THE  VIBRATIONAL  ’, 

1 ' TEMPERATURE  USED  IN  FINDING  THE  PARTITION  FUNCTION’) 

105  FORMAT! 9 X, 'SMALL  ERRORS  WILL  OCCUR  IN  ALL  ABSORPTION  CALCULAT ' , 

1 ' IONS  (ALSO  STARRED  QUANTITIES  IN  PROFILE)  $$$$$',//) 

106  FORMAT! 9 X, 'SMALL  ERRORS  WILL  OrCUR  IN  PRINTED  OUTPUT  (STARRED', 

1'  IN  PROFILE)  BUT  NOT  IN  RADIANCE  CALCULATIONS  $$$$$’,//) 

107  FORMAT(10X, 'ALT' ,5X, ' TR  TEMP  VB  TEMP ', 7X ,' TOT  PRESS ', 3X , A3 , 2X , 

1' DENSITY  LOWER  STATE  UPPER  STATE  7B  TEMP  PART',/, 

29X,  1 (KM) ’  ,2(7X,  ’ (K) ’ ) ,10X,  (ATMOS) 1 , 7X , ' ( CM- 3 ) ' , 2X , 

32 (8X,  ' (CM- 3) '  ) ,10X,  '  (1)  ’  ,7X,  ’ FN ' ) 

108' FORMAT! 14 ,F9. 2 ,2X,2F10.3,2X,1P,2E14.4,2X,2E14.4,OP,F13.3,F9.5) 
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109  FORMAT  (14,  F9 . 2 , 2X  ,  3F1 0 . 3 , 2X,  IP,  2E14  .  4 , 2X  ,  2E1 4  .  -5  ,  OP  ,  FI  3 . 3  ,  F9  .  5  / 

110  FORMAT  (1  OX,  'ALT'  ,5X,  1  TR  TEMP  ’  ,  5  X  ,  '  TVL  '  ,  7  X ,  ’  TVl)  ’  ,  9  X  ,  ’  TOT  PRESS', 

13X,A3,2X, 'DENSITY  LOWER  STATE  UPPER  STATE  VB  TEMP 

2 'PART' ,/,9X, 1 (KM) 1 ,3(7X, 1 (K) 1 ) ,  10X , ‘ (ATMOS) ' ,7X, 1 (CM- 3) ' , 3X, 

32 (8X,  ' (CM- 3) ' ) ,9X, ' (1) ' ,7X, ' FN '  ) 

111  FORMAT ( 5 3X.A1 , 17X , A1 , 13X , A1 , 1 2X , A1 , 9X , A1 ) 

112  FORMAT (63X,A1,17X,A1,13X,A1,12X,A1,9X,A1) 

113  FORMAT(//, ’  S$$S$  HMAX  INCOMPATIBLE  WITH  TANF ,  ADJUST  HMAX  TO', 
1F5.0, '  KM  $$$$$' ,//) 

114  FORMAT('  THE  LOWER-  AND  UPPER-STATE  POPULATIONS  REFLECT  AN 
1 ' ABUNDANCE  OF ’ , F7 . 5 , '  W . R . T .  TOTAL  ’ , A3 , / ) 

115  FORMAT ( // , '  SSSSS  CAUTION - FOR  HOT  BANDS  THE  PARTITION  FUNCTION', 

1'  PARAMETERS  MUST  BE  READ  IN  $$$$$',//) 

116  FORMAT {// , '  SSSSS  CAUTION - ATMOSPHERIC  PROFILE  CONTAINS  MORE', 

1'  THAN  250  ENTRIES,  UPPER  REGIONS  NOT  READ  SSSSS',//) 

******************************************************************** 


WRITE( 4 , 111 ) 

READ  AND  WRITE  THE  HEADER  FROM  TAPE2 .  THEN  READ  THE  FIRST  CARD- IMAGE 
( FORMAT (FS.1,F10.3,5E12.5,A1S) ) .  CALL  SUBROUTINE  OPTION  TO  INTERPRET 
THE  QUANTITIES  FOUND  THERE.  THE  INTERPRETATION  IS  WRITTEN  TO  UNIT  6. 

****  2A 
***** 

CALL  HEADER ( 2 ) 

****  2B 
*  *  *  *  * 

READ (2, 100) (DUM(I) ,1=1,7) ,CODE 

CALL  OPTION ( DUM , CODE , VIBL , NVP , NPF , INDEX ) 

CALL  REWND ( 2 ) 

******************************************************************** 


AST ( 1 )  =  '=’ 

IF( VIBL . GT .0.0 ) AST ( 1 )  =  '>’ 

WRITE (4,103) INDEX , NVP , NPF , AST ( 1 ) 

WRITE( 4, 114 )AI, MOL 
DO  175  I  =  1,5 
175  AST ( I )  =  '  ' 

IX  =  0 

E  =  AINT(TANI) 

IF ( VIBL . GT .0.0) THEN 

IF ( DUM ( 5 ) . EQ .0.0. AND . NVP . EQ . 1 ) IX  =  99 
I F { DUM ( 6 ) . EQ .0.0) THEN 
WRITE! 4 , 115  ) 

WRITE (6,115) 

END  IF 
END  IF 

****************************************************************** 


RETD  THE  ATMOSPHERIC  DATA - FORMAT ( F5 . 1 , F10 . 3 , 5E1 2 . 5  ) 

2B 

*  *  *  *  * 

180  K  =  : 

IF ( VIBL . GT . 0 . 0 ) GO  TO  190 
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185  IF ( K . GE .251) GO  TO  199 

READ (2,100, END=200 ) ALT ( K ) , TRTMP ( K ) ,RHO(K) , TVU ( K ) ,N0(K), 

INI (K) 

TVL(K)  =  1.0E+90 

IF( ALT ( K ) .GE.EJK  =  K  +  1 

GO  TO  185 

190  IF( K . GE. 251 )GO  TO  199 

READ( 2,100, END=200 ) ALT ( K )  , TRTMP ( K ) ,RHO(K) , TVL ( K ) , TVU ( K ) , 

1N0(K) ,N1(K) 

IF (ALT ( K ) .GE.EJK  =  K  +  1 
GO  TO  190 

****************************************************************** 

CHECK  TO  SEE  IF  TANI  FALLS  ABOVE  ALT ( 1 ) .  IF  SO,  CONTINUE.  IF  NOT, 

CHECK  TO  SEE  IF  THE  LOWER  BOUNDARY  OF  THE  USEFUL  ATMOSPHERE  WAS 

CORRECTLY  DETERMINED.  (FOR  ALTITUDE  SPACINGS  OF  GREATER  THAN  1  KM, 
IT  MIGHT  NOT  BE.)  IF  CORRECTLY  DETERMINED,  RESET  TANI.  IF  NOT,  RE¬ 
WIND  AND  REREAD  TAPE 2  TO  GET  THE  CORRECT  PROFILE  RANGE.  ALSO,  FIX 

THE  INDEX,  KMAX ,  CORRESPONDING  TO  THE  ALTITUDE  USED  FOR  THE  "TOP" 
OF  THE  ATMOSPHERE,  ADJUSTING  THE  "TOP"  DOWNWARD  IF  THE  PROFILE 
READ  IN  DOES  NOT  EXTEND  AS  FAR  AS  ANTICIPATED. 

199  WRITE (4,116) 

WRITE (6,116) 

200  KMAX  =  K  -  1 

I F ( ALT ( 1 ) . LE . TAN I ) GO  TO  205 
IF ( DUM ( 1 ) . LE. TANI ) THEN 
CALL  REWND( 2 ) 

DUM ( 1 )  =  ALT ( 1 ) 

E  =  AINT ( TANI  -  ( ALT ( 2 ) -ALT ( 1 ) )  +  1) 

GO  TO  180 

ELSE 

TANI  =  ALT ( 1 ) 

WRITE (4, 101) TANI 
WRITE( 6,101) TAN I 
END  IF 

205  IF(HMAX.GE.TANF)GO  TO  210 
HHAX  =  AINT( TANF+50 ) 

WR I TE ( 4 , 1 1 3 ) HMAX 
WRITE(6,113) HMAX 
210  IF ( HMAX. GT. ALT ( KMAX )) THEN 

RESET  HMAX 

I  =  HMAX 

HMAX  =  ALT (KMAX) 

IF(I.NE.lOOl) THEN 

WRITE (4,102) HMAX 
WRITE (6,102) HMAX 
END  IF 

I F ( TANF.GE. HMAX ) STOP  ' TANF  TOO  HIGH' 

ELSE  IF ( HMAX. LT. ALT ( KMAX )) THEN 

RESET  KMAX 

I  =  KMAX 

DO  215  A  =  KMAX, 1,-1 
IF(ALT(A) .LT. HMAX) GO  TO  220 
215  I  =  A 

220  KMAX  =  I 

END  IF 
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c 

c 
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DETERMINE  THE  PRESSURE,  IN  ATMOSPHERES,  AT  EACH  ALTITUDE 


DO  280  A  =  1 , KMAX 
IP  =  INT(ALT(A) ) 

E  =  IP 

IF ( IP . GT . 300 ) THEN 
PRESS ( A )  =  0.0 
ELSE  IF ( IP . GT .191) THEN 

PRESS ( A )  =  PR(192)*EXP( (191. -ALT ( A ) ) / 4 . 4 ) 

ELSE  I F ( E . EQ . ALT ( A ) ) THEN 
PRESS ( A )  =  PR ( IP  +  1 ) 

ELSE 

E  =  ALOG { PR { IP+1 ) ) 

QVIB  =  ALOG ( PR ( IP+2 ) ) 

Z1  =  IP 

Z2  =  Z1  +  1.0 

CALL  LINT ( ALT (A) , F, E ,QVIB, Z1 , Z2 ) 

PRESS (A)  =  EXP(F) 

END  IF 
280  CONTINUE 
C 

C  a************************************************************* 

c 

C  FIND  THE  VIBRATIONAL  TEMPERATURE  FOR  THE  PARTITION  FUNCTION, 

C 

IF ( NPF . EQ . 3 ) THEN 

DO  305  A  =  1 , KMAX 

305  TVQ(A)  =  TRTMP(A) 

ELSE  IF ( NPF. EQ. 2) THEN 

CALL  VIBTMP v  C2 , 1 , KMAX , VIBQ , DEGV , NO , N1 , TVQ ) 

ELSE  IF ( NPF . EQ . 1 ) THEN 
DO  310  A  =  1 , KMAX 

310  TVQ(A)  =  NO ( A ) 

ELSE  IF ( INDEX. EQ. 6) THEN 

CALL  VIBTMP ( C2 , 1 , KMAX , VIBE , GU , RHO , TVU , TVQ ) 

IF ( VIBE. NE. VIBQ) THEN 
WRITE (4,104) 

WRITE (4,106) 

WRITE (6,104) 

WRITE (6,106) 

WRITE( 4,108) 

AST ( 1 )  =  AST ( 4 )  =  AST ( 5 )  =  ’ 

END  IF 

ELSE 

DO  315  A  =  1 , KMAX 
315  TVQ ( A )  =  TVU ( A ) 

IF ( VIBE. NE. VIBQ) THEN 
WRITE (4,104) 

WRITE( 4,105) 

WRITE! 6,104) 

WRITE ( 6,105) 

WRITE (4,108) 

AST! 2)  =  AST! 3)  =  AST! 4)  =  AST! 5)  = 

END  IF 
END  IF 
C 

C  CALCULATE  THE  VIBRATIONAL  PARTITION  FUNCTION 

C 


DO  320  A  =  1 , KMAX 


*  ★  ★  * 

TVQ 
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3 2 C  QY i A )  =  l.O'li.O  -  EX? ( -C2*VI3Q  TVQ) A) ) ) * *DEG7 
C 


C  CALCULATE  AND  PRINT  THE  ATMOSPHERIC  PROFILE  FOR  REGULAR  BANDS 

C 

IF ( VIBL . GT .0.0 )GO  TO  400 

WRITE) 4 , 107 ) MOL 

WRITE (4,111) ( AST ( I ) ,1=1,5) 

C 

I F ( NVP . EQ . 4 )THEN 

DO  340  A  =  1 , KMAX 
TVU(A)  =  TRTMP(A) 

340  RHO(A)  =  RHO(A) *QV( A)/A1 

ELSE  IF ( NVP. EQ. 3) THEN 
DO  345  A  =  1 , KMAX 

345  TVU(A)  =  TRTMP(A) 

ELSE  IF ( NVP. EQ. 2) THEN 
DO  350  A  =  1 , KMAX 
NL ( A )  =  RHO(A) 

NU { A )  =  TVU(A) 

350  RHO(A)  =  RHO(A) *QV(A)/AI 

END  IF 
C 

IF ( NVP . EQ . 2 ) THEN 

CALL  VI BTMP ( C 2 , 1 , KMAX , VI BE , GU , NL , NU , TVU ) 

ELSE 

CALL  VIBPOP ( C2 , 1 , KMAX , AI , VI BL , GL , RHO , QV , TVL , NL ) 

CALL  VIBPOP ( C 2 , 1 , KMAX , AI , VIBE , GU , RHO , QV , TVU , NU ) 

END  IF 
C 

DO  360  A  =  1 , KMAX 

360  WRITE) 4 , 108 ) A, ALT (A) , TRTMP ( A ) , TVU ( A ) , PRESS ( A ) , RHO ( A ) , NL ( A ) , NU ( A ) , 
1TVQ(A) , QV ( A ) 

GO  TO  490 


********* i 


i**************************** 


CALCULATE  AND  PRINT  THE  ATMOSPHERIC  PROFILE  FOR  HOT  BANDS 

400  WRITE (4,110) MOL 

WRITE (4,112) ( AST ( I ) ,1=1,5) 

IF ( NVP. EQ. 3) THEN 

DO  445  A  =  1 , KMAX 

TVL (A)  =  TRTMP (A) 

445  TVU (A)  =  TRTMP) A) 

ELSE  I F ( NVP . EQ . 2 ) THEN 
DO  450  A  =  1 , KMAX 
NL ( A )  =  TVL) A) 

NU ( A)  =  TVU (A) 

450  DUM(A)  =  A I *RHO ( A ) /QV ( A ) 

C 

ELSE  IF)  IX. EQ.  99  (THEN- 
DO  455  A  =  1 , KMAX 

455  TVU) A)  =  TVL) A) 

END  IF 


1 .OR. NVP . EQ . 3 ) THEN 
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CALL  VI BPOP  (  C  2 , 1 ,  KMAX  ,  AI  ,  V I BL  ,  GL  ,  RHO  ,  QV ,  TVL  ,  LI.  , 

CALL  VIBPOP  ( C2 , 1 ,  KMAX  ,  AI ,  E ,  GU ,  RHO ,  QV  ,  TVU  ,  N'J  ) 

ELSE 

CALL  VI BTMP ( C 2 , 1 , KMAX , VI BL , GL , DUM , NL , TVL ) 

CALL  VI BTMP ( C2 , 1 , KMAX , E , GU , DUM , NU , TVU ) 

END  IF 
C 

DO  460  A  =  1 , KMAX 

460  WRITE ( 4 , 1 09 ) A , ALT ( A ) , TRTMP(A) ,TVL(A) ,TVU(A) .PRESS (A) ,RHO(A) ,NL( A) , 
1NU(A) , TVQ ( A ) , QV ( A ) 

C 

490  CONTINUE 
C 

Q  ********************************************************************* 

c 

C  THE  ARRAYS  RHO  AND  PRESS  ARE  CONVERTED  TO  THE  GEOMETRIC  MEAN  DENSITY 

C  IN  THE  LAYER  WHOSE  BOUNDARIES  ARE  A  AND  A+I ,  AND  STORED  WITH  INDEX  A. 

C 

C  THE  ARRAYS  TRTMP ,  TVL,  AND  TVU  ARE  CONVERTED  TO  AVERAGE  TEMPERATURES 

C  IN  THE  LAYER  WHOSE  BOUNDARIES  ARE  A  AND  A+l.  THESE  AVERAGE  TEMPERA- 

C  TURES  ARE  ALSO  MULTIPLIED  BY  1/C2  (SEE  COMMENT  IN  THE  MAIN  PROGRAM; 

C  THIS  FACTOR  APPEARS  WHENEVER  THE  TEMPERATURES  ARE  USED)  AND  ARE  STOR- 

C  ED  IN  THE  SAME  ARRAYS.  AS  WITH  RHO  AND  PRESS,  THE  INDEX  FOR  THE  LAYER 

C  WHOSE  BOUNDARIES  ARE  ALT ( A )  AND  ALT ( A+l )  KM  ABOVE  THE  EARTH'S  SURFACE 

C  IS  A. 

C 

C  QV  BECOMES  AN  ARRAY  STORING  THE  PRODUCT  OF  TWO  RATIOS: 

C  THE  VIBRATIONAL  PARTITION  FUNCTION  AT  TS  (QVIB)  TO 

C  THE  VIBRATIONAL  PARTITION  FUNCTION  AT  TVQ  (QV(A)) 

C  AND  THE  ROTATIONAL  PARTITION  FUNCTION  AT  TS  TO 

C  THE  ROTATIONAL  PARTITION  FUNCTION  AT  TRTMP 

C  THE  LATTER  RATIO  IS  A  POWER  OF  THE  RATIO  OF  TEMPERATURES,  TS/TRTMP , 

C  WHERE  TRTMP  IS  THE  ACTUAL  TRANSLATIONAL  TEMPERATURE  (NOT  MULTIPLIED 

C  BY  1/C2 )  AND  TS  =  296  K.  THE  EXPONENT  IS  PROT. 

C 

C  PRESS (A)  IS  INITIALLY  THE  TOTAL  PRESSURE,  IN  ATMOSPHERES.  AT  STATE- 
C  MENT  500,  IT  BECOMES  AN  ARRAY  STORING  THE  FACTOR  BY  WHICH  THE  LORENTZ 

C  LINEWIDTH  PARAMETER  (GIVEN  ON  THE  LINE  FILE  AT  TS  AND  1  ATMOSPHERE) 

C  IS  MULTIPLIED  TO  CORRECT  FOR  PRESSURE  AND  TEMPERATURE  AT  VARIOUS  AL- 

C  TITUDES. 

C 

QVIB  =  l.O/d.O  -  EXP  ( -VIBQ/BST)  )  **DEGV 

KMAX  =  KMAX  -  1 

E  =  1.0  -  TEXP 

TMIN  =  1.0E+10 

DO  500  A  =  1 , KMAX 

RHO { A )  =  SQRT(RHO(A) *RHO(A+l )  ) 

PRESS ( A )  =  SQRT( PRESS (A) ‘PRESS ( A  +  l )  ) 

TRTMP ( A)  =  0 . 5* ( TRTMP ( A )  +  TRTMP ( A+l )) /C2 
IF (TRTMP (A) .LT. TMIN) TMIN  =  TRTMP ( A ) 

TVL(A)  =  0 . 5* ( TVL ( A )  +  TVL(A+1))/C2 
TVU ( A )  =  0 . 5* ( TVU ( A )  +  TVU(A+1))/C2 
TVQ(A)  =  0.5* (TVQ(A)  +  TVQ(A+1))/C2 
QV ( A )  =  1 . 0/ (1.0  -  EXP ( -VIBQ/TVQ( A ) ) )  “  DEGV 
QV ( A )  =  ( QVIB/QV  ( A )  )  *  (  BST/TRTMP  (  A  )  )  “PROT 

500  PRESS  (  A  )  =  PRESS(  A) ‘(BST/TRTMP  (A)  )“E 
TMIN  =  ANINT ( TMIN*C2  ) 

C 

RETURN 

END 
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SUBROUTINE  OPTION ( DUM, CODE , VIBL , NVP , NPF , INDEX ) 

SUBROUTINE  OPTION  DETERMINES  THE  INPUT  OPTIONS  FOR  THE  ATMOSPHERIC 
PROFILE.  IT  READS  THE  FIRST  DATA  CARD- IMAGE-— THAT  IS,  THE  CARD-IMAGE 
CONTAINING  THE  ATMOSPHERIC  PROPERTIES  AT  THE  LOWEST  ALTITUDE  ON  THE 

FILE AND  DECIDES,  ON  THE  BASIS  OF  THE  NUMERCAL  VALUES  READ  AND  THE 

TYPE  OF  BAND  UNDER  CONSIDERATION,  WHAT  THE  UNDETERMINED  QUANTITIES 
MUST  BE.  THEN  THE  OVERRIDE  CODE  IS  CHECKED  TO  SEE  IF  THESE  DEFAULT 
INTERPRETATIONS  NEED  TO  BE  CHANGED. 

CHARACTER* 1  B1,B2 
CHARACTER *3  COD 
CHARACTER* 12  MSG { 9 ) , MSH ( S ) 

CHARACTER  * 1 5  CODE 
DIMENSION  DUM( 250 ) 

DATA  (MSG( I) ,1=1,9)/'  TOT  #  DENS',’  LST  V  TEMP','  UST  V  TEMP’, 

1  '  LST  *  DENS' UST  #  DENS’,’  1ST  V  TEMP’, 

2  1  GST  #  DENS','  1ST  #  DENS','  NOT  USED  '/ 

FORMAT ( 1 X , '  ALT  TR  TEMP ' , 5A12 , A1 5 , 33X , ' ( INTERP ) ' ) 

C  DISSECT  THE  OVERRIDE  CODE 
C 

CALL  SHFT( CODE, CODE) 

B1  =  CODE( 15:15) 

IF(B1 .EQ. ' ' ' ' ) THEN 
CODE( 15:15)  =  '  ' 

CALL  SHFT( CODE, CODE) 

END  IF 

COD  =  CODE( 13:15) 

B1  =  CODE! 13: 13) 

B2  =  CODE! 15: 15) 

C 

C  CHECK  THE  FIRST  ATMOSPHERIC  DATA  RECORD  TO  ESTABLISH  THE  INPUT  OPTION 
C  USED.  IGNORE  OVERRIDES  FOR  NOW. 

C 

E  =  DUM ( 5 ) 

IF (VIBL . GT . 0 . 0 ) E  =  DUM(6) 

C 

IF(E.LE.O.O) THEN 
NPF  =  0 

ELSE  IF(E. LT. 10000. )THEN 
NPF  =  1 

ELSE 

NPF  =  2 
END  IF 
C 

E  =  DUM( 4) 

I F ( E . LE . 0 . 0 ) THEN 
NVP  =  3 
NPF  =  3 

ELSE  I F ( E . LT . 1 0  0  0 . ) THEN 
NVP  =  1 

ELSE 

NVP  =  2 
END  IF 
C 

C  INITIALIZE  MESSAGE  ARRAYS 

C 
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IF ( COD . EQ . 1 LTE ' ) THEN 

MSG ( 2 )  =  MSG ( 3 )  =  MSG(5)  =  MSG ( 6 )  =  MSG ( 7 )  =  MSG(8)  =  MSG ( 9 ) 

END  IF 

DO  190  I  =  1,5 
190  MSK(I)  =  1 

SET  THE  INTERPRETIVE  MESSAGES  FOR  REGULAR  BANDS 

I F ( VIBL . EQ .0.0) THEN 

I F ( NVP . EQ . 1 ) THEN 

MSH(l)  =  MSG ( 1 ) 

MSH ( 2 )  =  MSG ( 3 ) 

ELSE  IF ( NVP. EQ, 2) THEN 
MSH ( 1 )  =  MSG ( 4 ) 

MSH ( 2 )  =  MSG ( 5  ) 

ELSE 

MSH ( 1 )  =  MSG ( 1 ) 

END  IF 

I F ( NPF . EQ . 1 ) THEN 

MSH( 3 )  =  MSG ( 6 ) 

ELSE  IF { NPF. EQ. 2) THEN 
MSH ( 3 )  =  MSG ( 7 ) 

MSH ( 4 )  =  MSG { 8 ) 

END  IF 

SET  THE  INTERPRETIVE  MESSAGES  FOR  HOT  BANDS 

ELSE 

MSH ( 1 )  =  MSG ( 1 ) 

IF ( NVP . EQ . 1 ) THEN 

MSH ( 2 )  =  MSG ( 2 ) 

MSH ( 3 )  =  MSG ( 3 ) 

ELSE  IF ( NVP. EQ. 2) THEN 
MSH ( 2 )  =  MSG ( 4 ) 

MSH ( 3 )  =  MSG ( 5 ) 

END  IF 

IF (NPF . EQ. 1 )THEN 

MSH ( 4 )  =  MSG( 6 ) 

ELSE  IF ( NPF. EQ. 2) THEN 
MSH ( 4 )  =  MSG ( 7 ) 

MSH( 5 )  =  MSG ( 8 ) 

END  IF 

END  IF 

CHECK  TO  SEE  IF  NPF  SHOULD  BE  OVERRIDDEN;  IF  SO,-  REWRITE  MESSAGES 

I  =  0 

IF(VIBL.GT. 0.0)1  =  1 

IF( B2 . EQ. ' N 1 . AND. NPF. EQ.l) THEN 
NPF  =  2 

MSH( 3+1 )  =  MSG ( 7 ) 

MSH ( 4  + 1 )  =  MSG ( 8 ) 

ELSE  IF ( B2 . EQ . ' T ' . AND . NPF . EQ . 2 ) THEN 
NPF  =  1 

MSH ( 3  + 1 )  =  MSG ( 6  ) 

MSH (4+1)  =  ' 
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END  IF 

CHECK  TO  SEE  IF  NVP  SHOULD  BE  OVERRIDDEN;  IF  SO,  REWRITE  MESSAGES 

IF ( B1 . EQ . ' N ' . AND. NVP. EQ.l) THEN 
NVP  =  2 

MSH(1+I)  =  MSG { 4 ) 

MSH ( 2+ I )  =  MSG ( 5 ) 

ELSE  IF ( B1 . EQ . 'T' . AND . NVP . EQ. 2 ) THEN 
NVP  =  I 

MSH ( 1  + 1 )  =  MSG ( 1  + 1  ) 

MSH ( 2+1 )  =  MSG ( 3 ) 

END  IF 

CHECK  THE  LTE  FLAG 

IF ( COD . EQ . 'LTE' . AND . NVP . NE . 3 ) THEN 
NPF  =  3 
NVP  =  NVP  +  2 
IF ( VIBL . GT .0.0) NVP  =  3 
END  IF 

SET  INDEX 

INDEX  =  1 

IF(VIBL.GT.O.O) INDEX  =  7 
IF ( NPF . EQ . 2 ) INDEX  =  INDEX  +  1 
IF ( NVP. EQ. 2) INDEX  =  INDEX  +  2 
IF ( NPF . EQ . 0 ) INDEX  =  NVP  +  4 
IF(NPF.EQ. 3 ) INDEX  =  NVP  +  8 

WRITE  OUT  THE  DIAGNOSTIC  MESSAGES  TO  UNIT  6 

WRITE (6, 100) ( MSH ( I ) ,1=1, 5), CODE 

RETURN 

END 
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SUBROUTINE  ZVGTC ( DV , KI , K2 ) 

VOIGT  PROFILE  ALGORITHM  DESIGNED  FOR  FAST  EXECUTION  IN  PROGRAM  NLTE . 
DOPPLER  PROFILE  IS  SUBSTITUTED  IN  SOME  REGIONS.  THE  METHOD  EMPLOYED 
IN  REGIONS  1,  2  AND  3  WAS  ORIGINALLY  OUTLINED  BY  PIERLUISSI  ET  AL, 
JQSRT  18,  555(1977).  THE  ROUTINE  HAS  BEEN  TESTED  FOR  0<X<28  AND  Y=0, 
.  00<3001<Y<10 .  IT  GIVES  AN  ACCURACY  OF  BETTER  THAN  .11  FOP.  X<1.25  AND 
BETTER  THAN  .5%  EVERYWHERE  ELSE  IN  THIS  AREA.  THAT  IS,  THE  ABSOLUTE 
ERROR  IS  LESS  THAN  .001  OR  .005  TIMES  THE  CORRECT  FUNCTION  VALUE. 
FOR  Y<. 000001,  WHERE  THE  DOPPLER  PROFILE  IS  SUBSTITUTED,  THE  FRAC¬ 
TIONAL  ERROR  MAY  BE  GREATER  FOR  X>3.3  BUT  THE  ABSOLUTE  ERROR  IS  VERY 
SMALL. 

THE  SUBROUTINE  FORM  OF  ZVGTC  IS  SET  UP  TO  EVALUATE  AN  ARRAY  OF  VOIGT 
FUNCTIONS,  VGT,  CORRESPONDING  TO  A  SINGLE  FREQUENCY  DV  AND  DIFFERENT 
ALTITUDES.  THE  INPUT  COMING  THROUGH  COMMON  /C/  INCLUDES  ARRAYS  SPEC¬ 
IFYING  THE  LINEWIDTH  RATIO  AND  THE  DOPPLER  WIDTH  FOR  EACH  ALTITUDE. 
Kl  AND  K2  ARE  THE  BOTTOM  AND  TOP  LAYER-INDICES. 


Y  =  A  =  SQRT ( LN2 ) *ALFL/ALFD 
X  =  SQRT ( LN2 ) *DV/ALFD 
DV  =  NU  -  NU0 

RAT  =  ARRAY  OF  VALUES  OF  Y 

DWID  =  ARRAY  OF  VALUES  OF  ALFD  (DOPPLER  WIDTHS) 

VGT  =  ARRAY  OF  FUNCTION  VALUES 

AN  =  1/ ( N | * ( 2N+1 ) ) ,  N  =  0 , . . - , 56  (COEFFS,  REGION  1  SERIES) 
W6  =  WEIGHT  FOR  2-PT  GAUSS-HERMITE  QUADRATURE  TIMES  2/PI 

W1-W3  =  WEIGHTS  FOR  6-PT  GAUSS-HERMITE  QUADRATURE  TIMES  2/PI 

U6  =  SQUARE  OF  ZERO  FIXED  BY  2-PT  GAUSS-HERMITE  QUADRATURE 

U1-U3  =  SQUARES  OF  ZEROES  FIXED  BY  6-PT  GAUSS-HERMITE  QUADRATURE 

PISQ  =  2/SQRT ( PI ) ;  SL  =  SQRT { LN2 ) ;  SLP  =  SQRT(LN2/PI) 

DIMENSION  AN (57) , TST1 ( 9 ) , TST2 ( 6 ) , RAT ( 2 50 ) , DWID ( 2 5 0 ) , VGT ( 2 50 ) 
COMMON/C/RAT , DWID , VGT 


DATA  (TSTl(N) , N= 1 , 9 ) /4 * . 9 OE-O 3 , .17E-0  3, . 32E-04, . 6 2E-0 5 , 2 * . 1 0E- 0 5/ 
DATA  (TST2(N) , N=1 , 6 ) /. 10E+00 , .10E-01, .10E-0  2, . 1 DE-03 , 2 * . 1 0E- 04/ 


DATA  (AN(N) ,N=1,57)/1 

1  . 2380952380952E-01, 

2  . 1068376068376 E-03, 

3  .1450385222315E-06, 

4  . 8350702795147 E- 10, 

5  . 2466827010264 E-13, 

6  . 4221407288807 E- 17 , 

7  . 4551846758928 E- 21, 

8  . 3289 260349 176E-2 5, 

9  . 1669761793417 E- 29, 
A  .6180307588223 E- 34, 
B  . 1718856062802 E- 38, 
C  . 368249351 5461 E- 43, 
D  . 6 2056 579 196 38 E- 48, 
E  . 8373419683872E-53, 
F  . 9186429502399E-58, 
G  .8304614505929E-63, 
H  . 6259184116949E-68, 


, . 3333333333333, 

. 4629629629630 E- 02, 
. 1322751322751 E- 04, 
. 1312253296380 E- 07, 
.5947794013638E-11, 
•1448326464360E-14, 
.  2107855191442 E- 18, 
.  1977064753878 E- 22, 
.1264107898899E-26, 
. 5754191643982 E- 31, 
.1930357208815E-35, 
. 4908923964523E-40, 
.9687280238871E-45, 
.  1513107949541E-49, 
.1902541227290E-54, 
•1954102582324E-59, 
.  1660580513451E-64  , 
•1180761838912E-69, 


.10, 

.7575757575758 E-03, 
. 1458916900093E-05 , 
.1089222103715E-08, 
. 3955429516459E-12 , 
. 8032735012416 E- 16, 
. 1002516493491E-19 , 
•8230149299214E-24, 
.4678483515519E-28, 
.1916942862110E-32, 
. 5 8467550074 6 9E-37 , 
. 1363041261779E-4] , 
•2483069097455E-46, 
.  360157930981  0E-51  , 
•4226789754194E-56, 
.40701 3 5 2778 5 3 E- 61, 
.325539546 20 13E-66, 
.  218621 04 2 29  5  4 E-71  , 
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C 


I  . 3974252722665 E- 73 


. 7095717391818E-75 ,  .1244665977389E-76/ 


100 


DATA  SLP  /. 4697186393498/ 

DATA  PISQ, SL  /I . 128379167096 ,  .8325546111577/ 

DATA  W1,W2,W3/. 461313 5279626,  .09999216171035, . 28 8 3 8 9 3 8 7 4 8 6 8E- 0 2/ 

DATA  U1,U2,U3/. 1901635091935,  1.784492748543,  5.525343742263/ 

DATA  W6,U6  /. 5642150484 ,  .5/ 

******************************************************************* 


DO  500  K  =  K1,K2 
X  =  DV*  SL/DWID ( K ) 

Y  =  RAT ( K ) 

DETERMINE  WHICH  REGION  TO  ENTER 

IF(X.GT.4.9) THEN 
INDEX  =  3 

ELSE  IF ( Y . LT . 1 . 0E-06 ) THEN 
INDEX  =  4 

ELSE  IF ( Y . GT .1.5) THEN 
INDEX  =  2 

ELSE 

INDEX  =  1 

N  =  1  +  INT(  3.333333333333*(X-3.3  )  ) 

IF ( X . LT .3.3) THEN 

N  =  1  +  INT ( 2 . 5 * ( X- . 1 )  ) 

IF( Y.LT.TSTl(N) ) INDEX  =  4 
ELSE  IF ( Y .GT . TST2 ( N ) ) THEN 
INDEX  =  2 
END  IF 
END  IF 

*********** 

REGION  ONE:  PIERLUISSI'S  SERIES,  EXTENDED 

*********** 


IF ( INDEX. EQ.l) THEN 
S  =  X*X  -  Y*Y 
T  =  2 . 0*X*Y 
SER  =  Y 
SEI  =  -X 
FPR  =  Y 
FPI  =  -X 

NMAX  =  INT(10,45*X)  -  4  +  6*INT(Y) 
N  =  8  f  4 * INT ( Y ) 

IF ( NMAX. LT.N) NMAX  =  N 

DO  100  N  =  1 , NMAX 


FNR 

= 

FPR*S 

-  FPI *T 

FNI 

= 

FPI  *S 

+  FPR*T 

SER 

= 

SER  + 

FNR*AN ( N+l ) 

SEI 

= 

SEI  + 

FNI * AN ( N+ 1 ) 

FPR 

= 

FNR 

FPI 

= 

FNI 

VGT(K)  =  SLP*EXP(-S)*( COS (T)*(1.0-PISQ*SER)  SIN ( T ) * P I SQ* SEI ) 

*********** 

REGION  TWO:  6-PT  GAL'SS-HERMITE  QUADRATURE 
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*********** 


ELSE  IF ( INDEX. EQ. 2) THEN 
S  =  X*X  -  Y*Y 
T  =  2 . 0*X* Y 


T2 

=  t*T 

T  = 

T*X 

FI 

=  S  - 

U1 

F2 

=  s  - 

U2 

F3 

=  s  - 

U3 

VGT(K)  = 

SLP*  <W1* 

(T 

1 

W2  * 

(T 

2 

W3  * 

(T 

Y*F1)/(F1*F1  +  T2 )  + 
Y  *  F  2 ) / ( F2*F2  +  T2 )  + 
Y*F3 ) / ( F3*F3  +  T2 ) ) 


REGION  THREE:  2-PT  GAUSS -HERMITE  QUADRATURE  (FASTER  THAN  DOPP) 

************* 


ELSE  IF ( INDEX. EQ. 3) THEN 
T  =  2 . 0*X*Y 
SEI  =  T*T 
T  =  T*X 

FPR  =  X*X  -  Y* Y  -  U6 

VGT(K)  *  SLP*W6 * ( T  -  Y* FPR ) / ( FPR*FPR  +  SEI) 


REGION  FOUR:  SUBSTITUTE  DOPPLER  PROFILE 


ELSE 

VGT(K)  =  SLP*EXP ( -X*X ) 
END  IF 

500  VGT(K)  =  VGT(K)/DWID(K) 


RETURN 

END 
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SUBROUTINE  SFECTRM ( VKIN , VMAX , DEL , FWHM , UNIT, MOL , I  SO , UST , LST , 

1BR , HGTS , IMXX , LOOK , MSG ) 

CHARACTER* 1  BL 
CHARACTER* 2  BR 
CHARACTER *3  MOL 
CHARACTER* 4  UN, UNIT 
CHARACTER*?  FN , LL 
CHARACTER *8  UST,LST 
CHARACTER* 10  MSG ( 2 ) 

LOGICAL  EX ,OD, CMPL 
REAL  EPS 

PARAMETER (CMPL=. FALSE. ,EPS=1. 0E-06 ) 

DIMENSION  HGTS (50) ,R(500,12),GL(500) ,RAW(5) ,RAI(12) 

SAVE  R,GL , RAI , LMAX , IMAX , NOB 

100  FORMAT (’ CXXXXXXX  BAND  RADIANCE  - NLTE  OUTPUT') 

101  FORMAT;  'C'  ,A3,I4,2A8,1X,A2,  '  —  '  ,2A10) 

102  FORMAT (F8.3,F7.3,1X,A4,A7, '  LOOK;  HTS  (KM)  = ' , 1 2F7 . 2 ) 

103  FORMAT (F8.3,F7.3,1X,A4,A7,17X,12F7.2) 

104  FORMAT (F10.3,1X,1P,12E10.3) 

105  FORMAT (20X,I5,E10.3) 

106  FORMAT!//,’  UNIT  7  HEADER;',/) 

107  FORMAT) 1H1 ,' SUBROUTINE  SPECTRM: ' ,//, 

1'  CUMULATIVE  RADIANCE  FOR', 13,'  VIEWING  PATHS  AND '  , I  3 , IX , A3 , 

2'  BANDS',//,'  INTEGRATED  RADIANCE  ( WATT/CM2 * STER ) 1 ,/, 

3'  SYNTHETIC  SPECTRUM  ( WATT/CM2 * STER* ' ,A4 ,')',// , 

4'  FWHM  FOR  TRIANGULAR  SCANNING  FUNCTION  = ' , F7 . 3 , IX , A4 , '  DEL  =', 
5F6.3,1X,A4) 

108  FORMAT (/, 3X,A7 ,1X,12(F7.2, '  KM')) 

109  FORMAT)/,'  CREATE  NEW  DATABASE  FOR  BAND  RADIANCES  ON  UNIT  7,', 

1 '  FILE  SPECF ' ) 

110  FORMAT)/,'  SUBROUTINE  SPECTRM  RECOGNIZES  FILE  WITH  PREVIOU', 

1 ' SLY-CALCULATED  BAND  RADIANCES;  WILL  ADD  TO  THIS  DATA-BASE',/) 

111  FORMAT)/,’  SUBROUTINE  SPECTRM  DETECTS  INCONSISTENCIES  BETWEEN', 

1'  CURRENT  AND  PREVIOUS  VALUES  OF  SIGNIFICANT',/,’  PARAMETERS,', 

2'  WILL  NOT  ADD  BAND  RADIANCES;  IGNORE  PREVIOUS  UNIT  7,  OPEN', 

3'  NEW  UNIT  7  AS  FILE  SPECG') 

112  FORMAT)/,'  PARAMETER  VALUES  ARE:  PRESENT  PREVIOUS',/, 

1/ , 17X , 'FWHM' , 2F10 . 3 , 

2/ , 17X , ' DEL  ' , 2F10 . 3 , 

3/ , 17X , ' GEOM ' , 2) 3X,A7) , 

4/ , 1 7X , 'UNITS' ,5X,A4,6X,A4, 

512(/,16X,A1, ' ALT  ’,2F10.2)) 

113  FORMAT)///,'  $$$$$  PROBLEM  IN  ACCESSING  UNIT', 12, 

1'  (INQUIRE),  FWHM  WILL  BE  RESET  TO  ZERO  $$$$$', Al,/, 

2',  $S$$$  SEE  UNIT  6  OUTPUT  $$$$$',//) 

114  FORMAT)'  IOSTAT  =',I6,A1, 

1/, '  EX  =' ,L2, 

2/,'  OD  = ' , L2 , 

3/, '  NM  =' ,12, 

4/, ‘  FN  =' ,A7, 

5//,'  FWHM  RESET  TO  ZERO,  CONTINUE  WITH  NLTE',//) 

115  FORMAT)//,'  $$$$$  CAUTION:  SPECTRAL  RADIANCE  ARRAY  IS  TOO  SMALL,', 
1'  SOME  POINTS  ARE  NOT  CALCULATED  $$$$$',/, 

2'  SSSSS ' , 10X, 'GMIN,  GMAX,  DEL  =’, 3F10 . 3 , IX ,A4 , 17X ,'$$$$$',// ) 

116  FORMAT (F10.3,10E10.3) 

117  FORMAT)'  LMAX  =',I4,',  RANGE  =',F9.3,'  TO ' , F9 . 3 , 2X , A4 ) 

118  FORMAT)//,'  SSSSS  PROBLEM  OPENING  ' , A4 , ' FILE ' , A7 , ' ON  UNIT', 12, 
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C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


1'  IOS  = '  , 1 4 , / , 6X ,  RESET  FWHM  TO  ZERO  AND  CONTINUE  WITH  NOTE', 
2'  SSSSS ' ,//) 

119  FORMAT ( '  NOTE  THAT  IMAX  =',I3,'  BUT  ONLY  12  SPECTRA  ARE  WRITTEN', 
1 ‘  TO  UNIT  7 ’ ) 

120  FORMAT (I3,8X,1P,12E10.3) 

121  FORMAT!'  ( INTEG 1 ’TD) ’ ,1P,12E10.3) 


********************************************************************* 


SUBROUTINE  SPECTRM - PURPOSE  IS  TO  GENERATE  A  SYNTHETIC  SPECTRUM  FOR 

THE  VIBRATIONAL  BAND  UNDER  CONSIDERATION  AND  ADD  THE  RESULTS  TO  SPEC¬ 
TRA  FROM  OTHER  BANDS  PREVIOUSLY  GENERATED.  ONLY  12  L-O-S  PATHS  CAN  BE 
CONSIDERED  AT  ONCE - OTHERS  ARE  IGNORED  BY  THIS  ROUTINE. 

MAIN  ENTRY:  CHECK  TO  SEE  IF  PREVIOUSLY-GENERATED  SPECTRA  ARE  AVAILA¬ 
BLE.  PERFORM  INITIALIZATION  STEPS,  OPEN  UNIT  7,  AND  READ 
PREVIOUS  RESULTS  (IF  ANY). 

ENTRY  SPEC1 :  ADD  THE  CONTRIBUTIONS  FOR  EACH  LINE-OF-SIGHT  PATH  (I)  AT 
EACH  DESIGNATED  WAVELENGTH  (L) 

ENTRY  SPEC2 :  ADD  THE  CONTRIBUTIONS  FROM  THE  CURRENT  BAND  TO  THE  RE¬ 
SULTS  FROM  BANDS  COMPILED  EARLIER  (IF  ANY).  WRITE  THE 
RESULTS  TO  UNIT  7. 

********************************************************************* 


MAIN  ENTRY: 

INITIALIZATION 

BL  =  1  1 

IMAX  =  IMXX 

I F ( IMAX . GT . 1 2 ) IMAX  =  12 


UNITS  CHOSEN  ARE  EITHER  CM-1  OR  UM  (MICRONS) 
VMIN ,  VMAX  ARE  IN  CM-1,  HOWEVER. 

IF ( UNIT . EQ . 'CM-1' ) THEN 

GMIN  =  INT( (VMIN-FWHM)/DEL)*DEL  +  DEL 
GMAX  =  INT( ( VMAX+FWHM)/DEL) *DEL 

ELSE 

GMAX  =  10000. /VMIN  +  FWHM 
GMIN  =  10000. /VMAX  -  FWHM 
GMIN  =  INT(GMIN/DEL) *DEL  +  DEL 
GMAX  =  I NT ( GMAX /DEL ) *  DEL 
END  IF 


QUERY  BY  FILENAME  TO  ESTABLISH  THE  CURRENT  STATUS  OF  SPECF 
LI  =  7 

LL  =  ’  SPECF  * 

UN  =  'OLD  ' 

INQUIRE ( FILE= ’ SPECF ’ , IOSTAT= IOS , ERR=9 00 , EXIST=EX ,OPENED=OD, 
1  NUM8ER  =  NM , NAME  =  FN ) 

FN  =  ’  LIMB' 

I F ( LOOK . EQ . 1 ) FN  =  '  ZENITH’ 
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IF l . NOT . EX ) GO  TO  300 
C 

Q  ********************************************************************* 

c 

C  FILE  SPECF  EXISTS  AS  A  LOCAL  FILE;  READ  IT 

C 

OPEN ( 7 , IOSTAT= IOS , ERR=901 , FILE= ’ SPECF ' , STATUS= ' OLD ' ) 

REWIND ( 7 ) 

WRITE ( 4 , 106 ) 

C$  IF(CMPL) 

WRITE (9,106) 

C$  ENDIF 

CALL  HEADER( 7) 

READ (7,103) FW , DL , UN , LL i (GL(I) ,I=1,IMAX) 

READ (7, 120) NOB, ( RAI ( I ) ,1=1, IMAX) 

C 

C  PARAMETER  CHECK  (VALUES  ON  THE  FIRST  DATA  CARD- IMAGE) 

C 

TEST  =  ABS ( FWHM-FW ) 

V  =  ABS ( DEL-DL ) 

I F ( TEST . GT . EPS . OR . V . GT . EPS ) GO  TO  290 
IF ( FN . NE . LL . OR . UNIT . NE . UN ) GO  TO  290 
DO  210  I  =  1 , IMAX 

V  =  ABS ( GL ( I ) -HGTS  (  I ) ) 

210  I F ( V . GT . EPS ) GO  TO  290 

WRITE (4,110) 

I F ( IMXX.GT. IMAX) WRITE ( 4, 119)  IMXX 
CS  IF(CMPL) 

WRITE ( 9 , 110 ) 

CS  ENDIF 

C 

(2  ********************************************************************* 

C 

C  PARAMETERS  CHECK  OUT:  READ  THE  PREVIOUSLY-COMPILED  BAND-RADIANCE  DATA 

C 

DO  220  L  =  1,500 

READ( 7,104, END=225 ) GL ( L ) , (R(L,I) ,1=1, IMAX) 

220  LMAX  =  L 
225  CONTINUE 

WRITE(4,117)LMAX,GL(1) ,GL(LMAX) ,UNIT 

c 

C  IF  NECESSARY,  ADJUST  THE  INDEX  RANGE  (1-LMAX)  TO  COVER  THE  FULL  WAVE- 

C  LENGTH  OR  ENERGY  RANGE  ( GL ( 1 ) -GL ( LMAX ) )  REQUIRED  BY  THE  CURRENT  BAND 

C  AND  THE  ONES  PREVIOUSLY  COMPILED.  IF  MORE  THAN  500  POINTS  ARE  REQUES- 
C  TED,  ELIMINATE  SOME  NEW  POINTS  RATHER  THAN  THOSE  FROM  EARLIER  BANDS. 

C 

K  =  INT ( ( GL ( 1 ) -GMIN ) /DEL  +  EPS) 

I F ( K . GT . 0 . AND . LMAX . LT . 5  0  0 ) THEN 
IF ( (K+LMAX) .GT. 500) THEN 
K  =  500  -  LMAX 

WRITE (4, 115) GMIN, GMAX , DEL , UNIT 
WRITE ( 6 , 115 )GMIN , GMAX , DEL, UNIT 
END  IF 

DO  230  L  =  LMAX, 1,-1 
GL ( L+K )  =  GL ( L ) 

DO  230  I  =  1 , IMAX 
230  R(L+K,I)  =  R ( L , I ) 

DO  235  L  =  1  ,  K 

GL  (  L )  =  GL ( K  +  i  )  -  ( K-L+ 1 ) *DEL 
DO  235  I  =  1 , IMAX 
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R(L,I)  =  0.0 
LMAX  =  LMAX  +  K 
END  IF 
C 

K  =  INT( (GMAX-GL( LMAX) ) /DEL  +  EPS) 

I F ( K . GT . 0 . AND . LMAX . LT .  5  0  0 ) THEN 
IF ( (K+LMAX) .GT. 500) THEN 
K  =  500  -  LMAX 

WRITE  ( <1 , 115)  GMIN,GMAX,  DEL,  UNIT 
WRITE (6, 115 )GMIN,GMAX, DEL, UNIT 
END  IF 

DO  245  L  =  LMAX+1 , LMAX+K 
GL(L)  =  GL(LMAX)  +  ( L-LMAX ) *DEL 
DO  245  I  =  1 , I MAX 
245  R ( L , I )  =  0.0 

LMAX  =  LMAX  +  K 
END  IF 

WRITE (4,1 17 )LMAX,GL(1) , GL(LMAX) ,UNIT 
C 

C  REPOSITION  UNIT  7,  RETURN  TO  LINES 

C 

CALL  REWND( 7 ) 

WRITE (7,101) MOL , I  SO , UST , LST , BR , MSG ( 1 ) ,MSG<2) 

WRI TE ( 7 , 1 0  2 ) FWHM , DEL , UN I T , FN , ( HGTS ( I ) , 1  =  1 , 1MAX ) 

RETURN 

C 

q  a******************************************************************** 

c 

C  PARAMETERS  DON’T  CHECK  OUT:  FILE  SPECF  CONTAINS  THE  WRONG  INFORMATION 

C  OPEN  SPECG  AS  AN  ALTERNATE  FILE  FOR  OUTPUT  FROM  THE  CURRENT  BAND. 

C 

290  WRITE (4,111) 

WRITE( 6,111) 

CS  IF(CMPL) 

WRITE (9,111) 

CS  ENDIF 

WRITE ( 4, 112) FWHM, FW, DEL, DL,FN,LL, UNIT, UN, ( BL , HGTS ( I ) , GL ( I ) , 

11=1, IMAX) 

WRITE(6,112) FWHM, FW , DEL, DL , FN , LL , UNIT , UN , ( BL , HGTS ( I ) , GL ( I ) , 

11=1, IMAX) 

CLOSE! 7) 

LL  =  '  SPECG  ' 

UN  =  'NEW  ' 

OPEN ( 7 , IOSTAT=IOS , ERR=901 , FILE= ' SPECG ' , STATUS= ' NEW ’ ) 

GO  TO  301 
C 

Q  ********************************************************************* 

C 

C  FILE  SPECF  DOES  NOT  EXIST  OR  IS  EMPTY;  OPEN  IT  AS  UNIT  7.  WRITE  HEAD- 

C  ERS  AND  THE  INITIAL  DATA  RECORD. 

C 

300  LL  =  ’  SPECF  ' 

UN  =  ’NEW  ’ 

OPEN! 7 , IOSTAT=IOS , ERR=901 , FILE= ' SPECF ' , STATUS1 ' NEW ’ ) 

WRITE! 4,109) 

CS  IF(CMPL) 

WRITE! 9 , 109 ) 

CS  ENDIF 

301  IF( IMXX.GT. IMAX) WRITE (4 , 119 ) IMXX 
WRITE(7,100) 
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WHITE!  7 , 101  )  MOL  ,  I  SC  ,  'JST  ,  1ST  ,  BR  ,  MSG  (  I  )  ,  MSG  (  2  ) 
WHITE i 7 , 102 ) FWKM, DEE, UNIT , FN , ( HGTS ( I } , 1=1 , I MAX ) 


C  DEFINE  THE  ARRAY  OF  WAVENUMBERS  OR  WAVELENGTHS  TO  BE  USED.  INITIAL! 2 

C  THE  ARRAY  OF  SPECTRAL  INTENSITIES  AND  THE  TOTAL  INTEGRATED  RADIANT 

C  ARRAY  FOR  EACH  LI NE-OF-S IGHT  PATH.  RETURN  TO  LINES. 

C 

NOP  =  0 

DO  3  5  5  I  =  1,IMA>: 

3  3  5  RA I  ■;  I  '  =  0.0 

DC  360  L  =  :,S0C 

GDI!  =  GKIN  *  DEL*  (  L-l  ) 

I F  i  GL  i  L  )  .  GT .  ( GMA»E?S  )  )  GO  TO  370 
LMAX  =  L 

DO  3  6  C  I  =  1,1 MAX 
360  R;L,I)  =  0.0 

IF  ; G  L ! 5  G  C ! *DEL > . LT . GMAX (THEN 

WR I TE  4 , 1 1 5 ; GM I N , GMAX , DEL , UNIT 
WR I TE i 6 , 1 1 5 ) GMI N , GMAX , DEL , UNIT 
END  IF 

3  "  C  WR I TE , 4 , 1 1 7 ) LMAX , GL ( 1 ) , GL ( LMAX ) ( UNIT 
RETURN 
C 

/-»  ********************************************************************** 


C 

C 

C 

C 

C 

c 


c 


c 

c 

c 

c 

c 

c 


ENTRY  SPEC1:  ADD  THE  CONTRIBUTION  FROM  THE  CURRENT  LINE  TO  THE  CUMU¬ 
LATIVE  RESULTS  OBTAINED  SO  FAR. 

ENTRY  SPEC1 ( FWHM , VINIT , NR , I MX XX, RAW ) 

FW  =  FWHM* FWHM 
V  =  VINIT 

IFfUNIT.NE. 'CM-l' )V  =  10000. /VINIT 
NM  =  IMXXX 

K  =  5* ( NR-1 )  +  IMXXX 
I F ( K . GT .12) NM  =  2 

DO  400  L  =  1 , LMAX 
TEST  =  ABS ( GL ( L ) -V ) 

I F ( TEST . GT . FWHM ) GO  TO  400 
DO  395  I  =  1 1  NM 
K  =  5* (NR-1)  +  I 

395  R ( L , K )  =  R ( L , K )  +  RAW ( I ) * ( FWHM-TEST ) /FW 
400  CONTINUE 

DO  410  I  =  1 , NM 
K  =  5* ( NR-1 )  +  I 
410  RAI(K)  =  RAI(K)  +  RAW(I) 

RETURN 


■***********★*★*****★*******< 

*♦******★**★*★****★**★****★< 


r**********************«*****« 
[******6**6******************* 
r  *************  *************** 


ENTRY  SPEC2 :  WRITE  THE  COMPLETED  SYNTHETIC  SPECTRUM  TO  UNITS  4  AND  7 


ENTRY  SPEC2 ( FWHM ) 
NOB  =  NOB  +  1 
FN  =  '  (CM-l  )  ' 
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IF(UNIT.N£. 1 CM-1 1 ) FN  =  '  WL(UM)' 

WHITE ( 4 , 107 ) IMAX , NOB , MOL , UNIT , FWHM , UNIT , DEL , UNIT 
WRITE ( 4 , 108 ) FN , (HGTS(I) ,1=1, IMAX) 

WRITE (4,102) 

WRITE (7, 120) NOB, (RAI(I) ,1=1, IMAX) 

WRITE ( 4 , 121 ) ( RAI ( I ) , 1=1 , IMAX) 

WRITE (4,102) 

DO  500  L  =  1 , LMAX 

WRITE (7,104) GL ( L ) , ( R ( L , I ) , I =1 , IMAX ) 

500  WRITE( 4,1 04 )GL(L) , ( R ( L , X ) ,1=1, IMAX) 

REWIND ( 7 ) 

CLOSE ( 7 ) 

RETURN 

********************************************************************* 


ERROR  RETURNS:  THERE  IS  A  PROBLEM  WITH  AN  INQUIRE  OR  OPEN 

900  WRITE (4,113)L1,BL 
WRITE! 6 , 11 3 ) LI 

WRITE (6,114) I OS , BL , EX , OD , NM , FN 

FWHM  =  0.0 

RETURN 

901  WRITE (4,118) UN , LL , LI , IOS 
WRITE (6,118) UN , LL , LI , I OS 
FWHM  =  0.0 

RETURN 

END 
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S-BRO'JTINE  PATH  (  ALT ,  HGTS  ,  IMXX  ,  HTS  ,  IMAX  ,  NR  ,  KMAX  ,  LOOK  ,  K1  ) 

SUBROUTINE  TO  SET  THE  LOWER-ALTITUDE  INDEX,  K1 ,  FOR  EACH  L-O-S  FA~H 
AND  TO  PRINT  THE  PARAMETERS  DESCRIBING  THE  PATHS. 

CHARACTER* 9  MSG { 2 ) 

DIMENSION  ALT (250) , HGTS (50) , HTS ( 5 ) ,K1(5) 

DATA  MSG( 1 ) ,MSG( 2 )/ ' ,  TANGENT',',  OBSERV.’/ 

DETERMINE  IMAX  AND  STACK  THE  VALUES  OF  HGTS  INTO  HTS 

K  =  IMXX  -  5* ( NR-1 ) 

IMAX  =  MIN ( K , 5 ) 

DO  170  I  =  1 , IMAX 
K  =  5  *  (  NR- 1  )  -►  I 
1 V C  HTS ( I  )  =  HGTS ( K ) 

WRITE) 4 ,101 ) NR, IMAX 

SET  K1  FOR  EACH  PATH 

DO  200  I  =  1 , IMAX 
DO  180  K  =  1 , KMAX-1 
IF ( ALT ( K*1 ) .GT.HTS(I) ) THEN 
K1(I)  =  K 
GO  TO  190 
END  IF 

180  CONTINUE 

IF (ALT (KMAX) . LE.HTSt I ) ) K 1 ( I )  =  KMAX 

WRITE  THE  PATH  PARAMETERS 

190  J  =  KMAX  -  K 1 ( I )  +  1 
K  =  5* (NR-1)  +  I 

20C  WRITE ( 4,100 )K, MSG (LOOK+1), HTS ( I), K1 (I), KMAX, ALT( K1(I ) ) , ALT ( KMAX ) , J 

100  FORMAT  (  PATH  #’,I2,A9,'  HT  =',F7.2,'  KM,  USE  LAYERS', 13, 

1'  THRU', 14,'  (ALTITUDES' ,F7. 2, '  THRU ' , F7 . 2 , '  KM)', 14,'  LAYERS') 

101  FORMAT( 1H1,  'GROUP  # '  ,  1 2  ,  '  WITH'  ,12,'  VIEWING  PATHS',//) 

RETURN- 

END 


144 


oooon  n  n  nono 


SUBROUTINE  HEADER (IU) 

SUBROUTINE  TO  READ  THE  HEADERS  ON  THE  INPUT  FILES  USED,  AND  TO  COP: 
THEM,  FOR  REFERENCE,  TO  UNIT  6.  IU  IS  THE  UNIT  NUMBER. 

CHARACTER* 1  CH , BL 
CHARACTER* 130  MSG 
DIMENSION  NU(7) 

SAVE  NU 

100  FORMAT (A1.A120) 

101  FORMAT (  IX  ,  A1 , A1 20  , '  (HEADER)') 

102  FORMAT (//,'  UNIT ’  , I  2 ,  ' :  '  ) 

103  FORMAT ( ’  AAAAABBBBBBBBBBCCCCCCCCCCCCDDDDDDDDDDDDEEEEEEEEEEEE ' , 

1  '  FFFFFFFFFFFFGGGGGGGGGGGG - '  ,33X,  '  (  FORMAT  )  *  ) 

104  FORMAT ( 1  11111111112222222222333333333344444444445555555555', 

1' 666666666677777777778888888888’  ,43X,  '  (FORMAT) '  ) 

105  FORMAT ( IX , A1 , A1 20 , '  (DATA)') 

BL  =  '  ’ 

J  =  0 

WRITE ( 6 , 102  )  IU 
200  READ( IU, 100 )CH,MSG 
IF ( CK . EQ . 1 C ' ) THEN 

WRITE ( 4 , 100 ) BL , MSG 
WRITE ( 9 , 100 ) BL , MSG 
WR I TE ( 6 , 1 0 1 ) CH , MSG 
J  =  J  +  1 
GO  TO  200 

ELSE 

BACKSPACE  IU 
I F ( IU.EQ.2)WRITE(6,103) 

I F ( IU . NE . 2 ) WRITE (6,104) 

WRITE (6,105) CH , MSG 
NU(IU)  =  J 
END  IF 
RETURN 

ENTRY  REWND(IU) 

PROCEDURE  TO  REPOSITION  THE  INPUT  FILES  AT  THE  FIRST  DATA  CARD- IMAGE 
(E.G . ,  SKIP  THE  HEADER) 

REWIND( IU) 

I F ( NU ( I U ) .EQ.0) RETURN 
DO  300  J  =  1 , NU ( IU ) 

300  READ( IU, 100 )CH 
RETURN 
END 
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FUNCTION  VWERF  (XX, A) 


C 

C  THE  METHOD  IS  DUE  TO  RYBICKI .  THE  FORTRAN  LISTING  WAS 

C  PUBLISHED  AS  AN  APPENDIX  TO  E.  H.  AVRETT  AND  R.  LOESER, 

C  "FORMATION  OF  LINE  AND  CONTINUOUS  SPECTRA,"  SPECIAL  REPORT  303, 

C  SMITHSONIAN  ASTROPHYSICAL  OBSERVATORY,  CAMBRIDGE,  MASS.  (1970) 

C 

C  THE  METHOD  OF  CALCULATION  IS  DESCRIBED  BY  B.  H.  ARMSTRONG 

C  AND  R.  W.  NICHOLLS,  "EMISSION,  ABSORPTION  AND  TRANSFER  OF 

C  RADIATION  IN  HEATED  ATMOSPHERES,"  PERGAMON  PRESS, NEK  YORK, 

C  (1972)  -  PP.  235-237. 

C 

C  "ORIGINAL"  VERSION  FROM  DEGGES  CHANGED  BY  ADDITION  OF  SAVE  STATEMEN 

C 

COMPLEX  Z 
DIMENSION  C ( 131 } 

SAVE  NTRY , NP1 , NPNP1 , RHSQ , 01 , RTLN2 , C 
DATA  NTRY  ,  NMAX  ,  RH  ,  PI  ,02  ,  Q3  /1 , 1 5 , 3 . 0 , 3 . 1 4 1 5 26 5 3 5898  , 

1  5. 641 89 5835477 6E-01 ,8 . 9 79 3 5 61 06 2 58 3E-0 2/ 

C 

IF  (NTRY  .EQ.  1)  GO  TO  170 
110  CONTINUE 

X  =  RTLN2*XX 

IF  (A  .EQ.  0.0)  GO  TO  160 
IF  ((X  +  A)  .GT.  25.0)  GO  TO  190 
C  DO  COMPUTATION  FOR  GENERAL  CASE 
A1  =  RH*A 
A2  =  A*A 

IF  (A  .LT.  0.1)  GO  TO  120 
Z  =  CEXP ( CMPLX (-Q1*A,Q1*X)  ) 

VWERF  =  0.0 
GO  TO  130 
120  CONTINUE 

Z  =  CCOS ( CMPLX ( Q1 *X , Q1 *A ) ) 

VWERF  =  Q2*EXP(A2  -  X*X ) *COS ( 2 . 0*A*X ) 

130  CONTINUE 

B1  =  (1.0  -  REAL(Z) )*A*0.5*RB 
B2  =  -AIMAG(Z) 

S  =  - 0 . 5  * ( FLOAT ( NP 1 )  +  RH*X) 

T  =  S*S  +  0 . 2  5  *RHSQ*A2 
DO  150  N  =  1,  NPNP1 
T  =  T  +  S  +  0.25 
S  =  S  +  0.5 
B1  =  A1  -  B1 
B2  =  -B2 

IF  (T  .GT.  2.5E-12)  GO  TO  140 
VWERF  =  VWERF  -  C(N)*A/RH 
GO  TO  150 
140  CONTINUE 

VWERF  =  VWERF  +  C(N)*(B2*S  +  Bl)/T 
150  CONTINUE 
155  CONTINUE 

VWERF  =  VWERF*RTLN2 
RETURN 

160  CONTINUE 

VWERF  =  RTLN2  *Q2*EXP ( —  X  *  X ) 

RETURN 

170  CONTINUE 
NTRY  =  0 
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noon 


NPl  =  NMAX  +  1 

NPNP1  =  NMAX  +  NPl 

RHSQ  =  RH*RH 
K  =  -NPl 

DO  180  N  =  1,  NPNP1 

K  =  K  +  1 

C ( N )  =  Q3*EXP ( -FLOAT ( K*K ) /RHSQ) 

180  CONTINUE 

Q1  =  RH*PI 

RTLN2  =  SORT (ALOG( 2.0)  ) 

GO  TO  110 
190  CONTINUE 

USE  ASYMPTOTIC  EXPANSION  FOR  COMPLEX  ERROR  FUNCTION 
FOR  LARGE  X  AND  A. 

AN  =  2.5 
DENR  =  A 
DENI  =  -X 
DO  200  I  =  1,  5 

DEN  =  AN/(DENR*D£NR  +  DENI*DENI ) 

DENR  =  DEN* DENR  +  A 
DENI  =  -DENI *DEN  -  X 
AN  =  AN  -  0.5 
200  CONTINUE 

DEN  =  Q2/ ( DENR* DENR  ♦  DENI*DENI ) 

VWERF  =  RTLN2*Q2*DEN*DENR 
RETURN 
END 
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c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


SUBROUTINE  MOLEC ( MOL , I  SO , UST , LST , MOLWT , DEGV , PROT , TEXP , VI  BE , VI BL , 

VI BQ , GL , GU , AI , FMT , FLAG ) 

a***************************************************************** 


SUBROUTINE  MOLEC,  GIVEN  THE  MOLECULE  CODE  (MOL)  AND  THE  ISOTOPE  CODE 
(ISO),  RETURNS  PARAMETERS  WHICH  ARE  UNIQUELY  ASSOCIATED  WITH  THE  MOL¬ 
ECULE  IN  QUESTION: 

MOLWT,  THE  MOLECULAR  WEIGHT 

DEGV,  THE  DEGENERACY  OF  THE  VIBRATIONAL  MANIFOLD 
PROT,  THE  EXPONENT  OF  TEMPERATURE  IN  THE  ROTAT'D 
PARTITION  FUNCTION 

TEXP,  THE  EXPONENT  OF  TEMPERATURE  IN  THE  LORENTZ 
LINEWIDTH  CORRECTION 

VIBQ ,  THE  VIBRATIONAL  QUANTUM  IN  THE  PART IT ' N  FN 
AI ,  THE  ISOTOPIC  ABUNDANCE 

ALSO,  MOLEC  RETURNS  A  CHARACTER  VARIABLE,  FMT,  SPECIFYING  THE  FORMAT 
NEEDED  FOR  READING  THE  LINEFILES.  SINCE  BR  AND  NRL  (SEE  LINES)  ARE 
NOT  APPROPRIATE  DESCRIPTIONS  FOR  H20,  03,  AND  CH4  (THE  NONLINEAR  MOL¬ 
ECULES),  THE  LINES  ARE  SIMPLY  NUMBERED  IN  THE  ORDER  IN  WHICH  THEY  ARE 
READ. 


FOR  CH4 ,  THE  CORRECT  PARTITION  FUNCTION  RESULTS  TO  WITHIN  ONE  PERCENT 
IF  A  SINGLE  LEVEL  AT  1370  CM-1  (VIBQ)  WITH  A  DEGENERACY  OF  5  (DEGV) 
IS  CHOSEN. 

DEGV  IS  2  FOR  LINEAR  TRIATOMIC  MOLECULES,  5  FOR  CH4 ,  1  OTHERWISE 
PROT  IS  1  FOR  ALL  LINEAR  MOLECULES,  1.5  OTHERWISE 
TEXP  IS  .25  FOR  C02,  .5  OTHERWISE 

GIVEN  THE  UPPER  AND  LOWER  VIBRATIONAL  LEVEL  CODES  (UST  AND  LST),  THIS 
SUBROUTINE  ALSO  RETURNS  CERTAIN  VALUES  WHICH  ARE  ASSOCIATED  WITH 
INDIVIDUAL  VIBRATIONAL  TRANSITIONS,  PROVIDED  THE  LATTER  CAN  BE  FOUND 
IN  THE  DATABASE  MOLPAR.  MOLPAR  CONTAINS  DATA  PERTAINING  ONLY  TO  TRAN¬ 
SITIONS  OF  C02  AND  NO,  AND  NOT  ALL  TRANSITIONS  AT  THAT.  THE  INTEGER 
VARIABLE  FLAG  IS  SET  TO  ZERO  IF  THESE  QUANTITIES  ARE  NOT  FOUND. 

THIS  SUBROUTINE,  AND  HENCE  PROGRAM  NLTE ,  RECOGNIZES  ONLY  THE  FIRST 
EIGHT  MOLECULES  IN  THE  A.F.G.L.  DATABASE— -THAT  IS,  ONLY  THOSE  WHOSE 
CODES  APPEAR  IN  THE  FIRST  DATA  STATEMENT  BELOW. 

********************************************************************* 


INTEGER  DEGV , DEG ( 8 ) ,STW2(29) ,STW8(13) ,GL,GU 
LOGICAL  FLAG 

CHARACTER* 3  MOLCOD ( 8 ) , MOL 

CHARACTER*8  NAM2 ( 29 ) , NAM8 ( 1 3 ) , UST , LST 

CHARACTER*  31  FI 

CHARACTER* 9  F2 

CHARACTER*?  F3 

CHARACTER *47  FMT 

DIMENSION  ENL2 (29,7), ENL8 (13,3) 

DIMENSION  MLWT (8,7) , MI  SO (8, 7) ,ABUN(8,7) ,VIB(8,7)  ,PRT(8)  ,TXP(8) 
COMMON/M/MI  SO , MLWT , ABUN , VI B , DEG  ,  PRT ,  TXP  ,  ENL2 , STW2 , ENL8 , STW8 
COMMON/ N/NAM 2 , NAM8 

DATA  ( MOLCOD ( I) ,I=1,8)/'K20' , 'C02' , '03  ,,,N20'.’C0  ','CH4','02 
1  'NO  '/ 

DATA  FI/'  (BZ,F10.4,E10.3,F5.4,F10.3,2A8,  '/ 
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DATA  F3/ ' , 4X , I  4  )  '/ 

C 

90  FORMAT;//,'  $$$SS  ERROR:  MOLECULE  OR  ISOTOPE  CODE  NOT  RECOG', 
l'NIZED  $$$$$’,/) 

CHECK  THE  MOLECULE  AND  ISOTOPE  CODES 
IC  =  0 

DO  100  I  =  1,8 

100  I F ( MOLCOD ( I ) . EQ . MOL ) I C  =  I 
I F ( IC . EQ . 0 ) THEN 
WRITE (4,90) 

WRITE (6,90) 

RETURN 
END  IF 
ID  =  0 

DO  110  I  =  1,7 

110  IF(MISO( IC, I ) .EQ. ISO) ID  =  I 
IF ( ID. EQ. 0 ) THEN 
WRITE( 4,90) 

WRITEf  6, 90) 

RETURN 
END  IF 

SET  THE  SIX  MOLECULAR  PARAMETERS 

MOLWT  =  MLWT ( IC , ID ) 

AI  =  ABUN ( IC , ID ) 

VIBQ  =  VIB ( IC , ID ) 

DEGV  =  DEG(IC) 

PROT  =  PRT(IC) 

TEXP  =  TXP(IC) 

SET  THE  FORMAT  FOR  READING  THE  AFGL  LINEFILE. 

F2  =  ' 14X , Al , 13 ' 

I F ( I C . EQ . 7 ) F 2  =  ' 12X , A2 , 14  ' 

IF(IC.EQ.1.0R.IC.EQ.3)F2  =  'A1,I17 
IF ( IC . EQ . 6 ) F2  =  ' Al , 1 6X , I 1 ' 

I F ( IC . EQ . 8 . OR . I C . EQ . 5 ) THEN 
F2  =  ' 12X,A1 , 13 ' 

F3  =  '  ,6X,I4)  ' 

END  IF 

FMT  =  F1//F2//F3 

CHECK  TO  SEE  IF  THE  PROPERTIES  OF  THE  VIBRATIONAL  LEVELS  ARE  STORED 
IN  THE  DATABASE,  MOLPAR .  SET  THE  INTEGER  VARIABLE,  FLAG. 

FLAG  =  .TRUE. 

IF ( IC . EQ . 2 . OR .IC.EQ.8)THEN 
IMAX  =  29 
IF ( IC . EQ . 8 }THEN 
IMAX  =  13 
DO  200  I  =  1 , IMAX 
NAM2 ( I )  =  NAM8 ( I ) 

STW2 ( I )  =  STW8 ( I ) 

200  ENL2 ( I , ID )  =  ENL8(I,ID) 

END  IF 


IU  =  0 

DO  210  I  =  l.IMAX 
IF(LST.EQ.NAM2{I) )IL  =  I 
210  IF ( UST . EQ . NAM 2 ( I ) ) IU  ^  I 

IF{ IL. EQ. 0 .OR. IU. EQ. 0 )GO  TO  300 
GU  =  STW2 ( IU } 

GL  =  STW2( IL) 

VIBL  =  ENL  2 { I L , ID ) 

VIBE  =  ENL2 ( IU, ID) 

IF(VIBE.EQ.O.O)GO  TO  300 
I F ( VI BL . EO -0.0. AND . I L . GT . 1 ) GO  TO  300 
VIBE  =  VIBE  -  VIBL 
FLAG  «  .FALSE. 

END  IF 

300  RETURN 
END 
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SUBROUTINE  SHFT ( VAR , DUM ) 


SUBROUTINE  TO  CONVERT  A  LEFT-JUSTIFIED  CHARACTER  VARIABLE,  VAR,  TO  A 
RIGHT- JUSTIFIED  VARIABLE. 

CHARACTER  VAR* ( * ) , DUM* ( * ) , B* 1 ( BL*1 
DATA  BL/ '  ' / 

L  =  LEN(VAR) 

DO  10  I  =  1,L 
B  =  VAR ( L : L ) 

IF (B.NE.BL) RETURN 
DUM  =  BL//VAR 
10  VAR  =  DUM 
RETURN 
END 


SUBROUTINE  LINT ( Z , F , FI , F2 , Z1 , Z 2  ) 

SUBROUTINE  TO  PERFORM  LINEAR  INTERPOLATION  OF  F(Z) - TO  OBTAIN 

F  AT  A  POINT  Z. 

D  =  Z2  -  Z1 

F  =  F2*(Z  -  Zl)/D  -  FI  * ( Z  -  Z2)/D 

RETURN 

END 


SUBROUTINE  VIBTMP ( C2 , HMIN , HMAX ,E,G, POPO , POP1 , VT ) 

SUBROUTINE  TO  CALCULATE  A  VIBRATIONAL  TEMPERATURE  PROFILE  FROM  TWO 
VIBRATIONAL  POPULATION  PROFILES.  THE  LOWER  STATE  (OF  THE  TWO  WHOSE 
POPULATIONS  ARE  GIVEN)  IS  ASSUMED  TO  BE  THE  GROUND  STATE. 

INTEGER  A, HMIN, HMAX, G 

DIMENSION  VT( 250), POPO (250) ,POP1(250) 

DO  100  A  =  HMIN, HMAX 

100  VT ( A )  =  -C2*E/ALOG(POP1(A)/(G*POPO(A) ) ) 

RETURN 

END 


SUBROUTINE  VI BPOP ( C2 , HMIN , HMAX , AI , E , G , RHO , QV , VT , POP ) 

SUBROUTINE  TO  CALCULATE  A  VIBRATIONAL  POPULATION  PROFILE  FROM 
THE  CORRESPONDING  VIBRATIONAL  TEMPERATURE  PROFILE. 

INTEGER  A, HMIN, HMAX, G 
C 

DIMENSION  VT(250) , RHO (250) ,POP( 250) ,QV( 250) 

C 

DO  100  A  =  HMIN, HMAX 

100  POP ( A )  =  AI*G*RHO(A) *EXP(-C2*E/VT(A) )/OV(A) 

RETURN 

END 
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BLOCK  DATA  MOLPAR 
C 

INTEGER  DEGV ( 8 ) ,STW2(29) ,STW8(13) 

CHARACTER* 8  NAM2 (29), NAM8 (13) 

DIMENSION  ENL2 (29,7), ENL8 (13,3) 

DIMENSION  MI  SO (8, 7) ,MLWT(8,7) ,ABUN(8,7) ,VIBQ(8,7) ,PR0T(8) ,TEX?(8) 
COMMON/M/MISO , MLWT , ABUN , VI BQ , DEGV , PROT , TEXP , ENL2 , STW2 , ENL8 , STW8 
C0MM0N/N/NAM2 , NAM8 

SET  MOLECULAR  PARAMETERS  FOR  H20 

DATA  ( MI  SO (1,1), 1  =  1, 7) /1 61, 162, 181, 171,3*- 1/ 

DATA  ( MLWT (1,1), 1=1, 4)/  18,  19,  20,  19/ 

DATA  ( ABUN ( 1, I ), 1  =  1, 4)/. 99729, .00030, .00204, .00037/ 

DATA  (VIBQ(1,I) ,1=1,4) /I 594. 7498,1*03.489,1 588.279,1 5 91.325/ 

SET  MOLECULAR  PARAMETERS  FOR  C02  (MOLECULE  #  2) 

DATA  (MI SO (2, I), 1=1, 7)/626, 636, 628, 627, 638, 637, 828/ 

DATA  (MLWT(2,I) ,1=1,7)/  44,  45,  46,  45,  47,  46,  48/ 

DATA  ( ABUN (2,1) ,1=1,7) /. 98414, .01105,. 00402,. 00073,. 0000452, 

1  .0000082, .00000412/ 

DATA  ( VIBQ( 2,1) , 1=1, 7) /6 67. 379, 648. 479, 662. 374, 664. 730, 643. 23, 

1  645.72,  657.33/ 

SET  MOLECULAR  PARAMETERS  FOR  03 

DATA  (MISO(3,I),I=l,7)/666,668,686,4*-l/ 

DATA  (MLWT(3,I) ,1=1,3)/  48,  50,  50/ 

DATA  ( ABUN (3,1) ,1=1, 3)/. 99279, .00 406,. 0020 3/ 

DATA  ( VIBQ( 3,1) ,1=1,3 )/3*700. 9316/ 

SET  MOLECULAR  PARAMETERS  FOR  N20 

DATA  (MISO(4,I),I=l,7)/446,456,546,448,447,2*-l/ 

DATA  ( MLWT (4, I), 1=1, 5)/  44,  45,  45,  46,  45/ 

DATA  (ABUN (4, 1) , 1  =  1 , 5 ) / . 99022 , . 00368 ,. 00368 ,. 00202 ,.  00037/ 

DATA  ( VIBQ( 4,1) , 1  =  1 , 5 ) /588 . 768 , 57 5 . 5 , 58 5 . 3 2 , 58 4 . 1 , 586 . 3/ 

SET  MOLECULAR  PARAMETERS  FOR  CO 

DATA  (MISO( 5, I) ,1=1,7 )/26,36,28,27, 3 *-1/ 

DATA  (MLWT (5,1) ,1=1,4 )/28,29,30,29/ 

DATA  ( ABUN (5,1) ,1=1, 4)/. 98652, .01107,. 00 20 2,. 00036 9/ 

DATA  (VIBQ(5, I), 1=1, 4J/2143.2716, 2096. 0674, 2092. 1231, 2116. 29 57/ 

SET  MOLECULAR  PARAMETERS  FOR  CH4  (211  AND  311)  AND  CH3D  (212) 

DATA  (MISO(6,I),I=l,7)/211,311,212,4*-l/ 

DATA  (MLWT(6,I) ,1=1,3)/  16,  17,  17/ 

DATA  ( ABUN  (  6, 1  /  ,  I  =1,3)/.  98515,  .OHIO,  .00060/ 

DATA  (VIBQ(6,I),I=1,3)/3*1370./ 

SET  MOLECULAR  PARAMETERS  FOR  02 

DATA  (MISO(7,I),I=l,7)/66,68,67,4*-l/ 

DATA  (MLWT (7,1) ,I=l,3)/32,34,33/ 

DATA  ( ABUN ( 7 , I), 1=1, 3)/. 99519, .004 07, .0007 4/ 

DATA  (VIBQ (7, I), 1=1, 3)/3*1556.3791/ 


152 


non  non  non  nnnnnnn  non  nnn 


SET  MOLECULAR  PARAMETERS  FOR  NO  (MOLECULE  «  8) 

DATA  (MIS0(8,I) ,1=1,7 ) /46 , 56 , 48 , 4*-l/ 

DATA  ( MLWT (8,1) , I = 1 , 3 ) / 3 0 , 3 1 , 3 2 / 

DATA  ( ABUN (8,1) ,1=1, 3)/. 99390,. 00369,. 0020 3/ 

DATA  ( VIBQ( 8,1) ,1=1, 3) /187 5. 9711, 1842. 9177, 1827. 2844/ 

SET  DEGV ,  PROT,  AND  TEXP  FOR  ALL  EIGHT  MOLECULES 

DATA  ( DEGV (I), 1=1, 8) /l, 2, 1,2, 1,5, 1,1/ 

DATA  ( PROT ( I ), 1=1, 81/1.5,1.0,1.5,1.0,1.0,1.5,1.0,1.0/ 

DATA  ( TEXP { I ) ,1=1, 8)/. 5, .25, 6 *.5/ 

*****************************************************************<**» 

C02  VIBRATIONAL  LEVEL  PARAMETERS 


IDENTIFY  C02  ENERGY  LEVELS  USING  AFGL  NOTATION 


DATA  (NAM2(I) ,1=1, 

1 

2 

3 

4 

5 

6 
7 

SET  ENERGY  LEVELS 


)/' 00001 • , '01101' , ' 
'11102 ' , '03301 ’ , ' 
'12202' , '20002'  ,  1 
'01111 '  , 

■10012' , '02211' , ' 
'11112'  ,  '03311' , ' 
'20013' , '12212' , 

'  04411 ', ' 20012 ' , ' 

R  THE  626  ISOTOPE 


10002  '  , 

' 02201  '  , 

'  10001 

11101  '  , 

' 00011  '  , 

’  20003 

04401  '  , 

'12201  '  , 

’  20001 

10011  '  , 

urn  • , 

' 00021 ' , 

12211 '  , 

' 20011 '/ 

1 

2 

3 

4 

5 

6 


DATA  ( ENL2 (1,1) ,1=1, 29) /0. ,667.379, 
1932.472,  2003.244, 
2585.032,  2671.146, 
3004.012, 

3612.842,  3659.271, 
4247.707,  4314.912, 
4853.629,  4887.982, 
4970.930,  4977.839, 


1285.4087,1335.129,  1388.1847, 
2076.855,  2349.1433,2548.373, 
2671.716,  2760.735,  2797.140, 

3714.783, 

4390.627,  4673.327, 


5061.788,  5099.663/ 


SET  ENERGY  LEVELS  FOR  THE  636  ISOTOPE 


1 

2 

3 

4 

5 

6 
7 


DATA  ( ENL2 (1,2) , 1=1 , 29 )/0 . , 648 . 479 , 
1896.547,  1946.343, 
2531.63,  2595.614, 

2920.239, 

3527.7376,3557.316, 

4147.239,  4194.704, 

4748.062,  4770.987, 
4831.99,  4887.387, 


1265.8282,1297.268,  1370.0625, 
2037.093,  2283.4875,2507.50, 
2645.086,  2700.25,  2750.48, 

3632.9096, 

4287.70,  4543.549, 

4938.802,  4991.346/ 


SET  ENERGY  LEVELS  FOR  THE  628  ISOTOPE 


DATA 

( ENL2 (1,3) , 1=1 , 29 ) /0 . 

,  ,  662.3743 

,1259.426, 

1 

1901.748, 

1988.328, 

2049.346, 

2 

2549.425, 

2614.235, 

2651.875, 

3 

2982.106, 

4 

3571.143, 

3632.52, 

2675.13, 

5 

4201.19, 

4283.35, 

4346.13, 

6 

4791.26, 

4836.63, 

1325.15,  1365.844, 
2332.1127,2500.776, 
2728.264,  2757.229, 


4639.502, 
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7  4904.846,  4934.565,  5012.55,  5042.584/ 

SET  ENERGY  LEVELS  FOR  THE  627  ISOTOPE 


DATA 

<ENL2( 1,4 ) ,I=l,29)/0. ,664.73, 

1271.875 

,  1329.87, 

1376.03, 

1 

1916.31,  1995.36, 

2062.41, 

2340.0136 

,2523.58, 

2 

3 

4 

2566.33,  2641.26, 

2992.31, 

3590.86,  3645.02, 

0.0, 

3693.64, 

2743.68, 

2776.00, 

5 

6 

4223.33,  0.0, 

4821.515,  0.0, 

4367.08, 

4655.205, 

7 

0.0,  4939.35, 

0.0, 

5075.344/ 

SET  : 

ENERGY  LEVELS  FOR  THE  638,  637, 

AND  828 

ISOTOPES 

DATA 

1 

( ENL2 (I,5),I=l,29)/0. ,643.23, 
3*0.0,  2265.973, 

1244.93, 

20*0.0/ 

1286.86, 

1342.37, 

DATA 

1 

{ ENL2 (1,6) ,1=1, 29 )/0., 645. 744, 
3*0.0,  2274.33, 

1254.83, 

20*0.0/ 

1291.80, 

1355.52, 

DATA 

1 

(ENL2( 1,7) ,1=1,29) /0. ,657.33, 
3*0.0,  2314.052, 

1230.33, 

20*0.0/ 

1315.08,  1347.097, 

SET  THE  STATISTICAL  WEIGHTS  OF  THE  29  C02  LEVELS 


1 

2 

3 

4 


DATA  (STW2( I) ,1=1,29)/  1, 

2, 

2, 

2, 

1, 


5 


6 

7 


1, 

2, 


2,  1, 
2,  2, 
1,  2, 

2,  1, 
2 ,  2 , 
2, 

i,  2, 


2,  1, 
1,  1, 
2,  1, 


1/ 


NO  VIBRATIONAL  LEVEL  PARAMETERS 


IDENTIFY  THE  NO  VIBRATIONAL  LEVELS 

DATA  (NAM8(I) ,1=1,13) /’O' ,’l',,2,,’3’,'4,,,5,,,6,,,7,,,8',’9'r 
1  '10' , 'll' , '12'/ 

SET  ENERGY  LEVELS  FOR  THE  46,56,  AND  48  ISOTOPES 

DATA  (ENL8(I,1) , 1=1,13 )/0.0, 1875. 9711 , 3723. 8526 ,  5543.6909, 

1  7335.5312,9099.4078,10835.3427,6*0.0/ 

DATA  ( ENL8( 1,2) ,1=1,13) /0. 0,184 2. 9177,11*0.0/ 

DATA  (ENL8( 1,3) ,1=1, 13)/0.0,1827.2844, 11 *0.0/ 

SET  THE  STATISTICAL  WEIGHTS  OF  THE  NO  LEVELS 

DATA  ( STW8 (I) , 1=1 , 13 )/13*l/ 

********************************************************************* 


END 
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BLOCK  DATA  PRESS 


ATMOSPHERIC  PRESSURE,  IN  ATMOSPHERES,  AT  ALTITUDES  BETWEEN  0  AND  19 
IN  1-KM  INTERVALS.  DATA  ARE  FROM  US  STANDARD  ATMOSPHERE,  1976. 


DIMENSION  PR (192) 

COMMON/P/PR 

ALTITUDES  0-95  KM  IN  THE  FIRST  HALF  OF  THE  ARRAY 


DATA  ( PR ( I ) ,1=1,96)/ 

1 . 10000E+01 , . 88700E+00 , . 78461E+00 
2 . 46600E+00 , .40567E+00, .35185E+00 
3 . 19145E+00 , .16362 E+ 00, .13985E+00 
4 . 74663E-01 , .63829E-01, .54570E-01 
5.29328E-01, .25158E-01, .21597E-01 
6 . 11813E-01 , . 10177E-01 , .87743E-02 
7 . 49200E-02 , .42758E-02, .37220E-02 
8 . 21709E-02 , .190S6E-02, .16728E-02 
9 . 10095E-02 , . 89153E-03 , .78735E-03 

A.  47705E-03 , .41941E-03, .36873E-03 

B. 21671E-03, .18892E-03, .16470E-03 

C .  93372E-04 , . 80619 E- 04, .69607E-04 

D.  37861E-04 , .32350E-04, .27642E-04 

E .  1 5721E-04 , . 12779E-04 , .10387E-04 

F.  62410 E- 05, . 43947E-05 , .3S8SCE-C5 

G .  18119E-05 , . 15181E-05 , .12719E-05 


69204E+00, .60854E+00, .53341E+00, 
30397E+00, . 26153E+00, .22403E+00, 
11953E+00, .10217E+00, .87340E-01, 
46671E-01, . 39945E-01, .34215E-01, 
18553E-01 , . 15950E-01 , . 13727E-01, 
75727E-02, .65473E-02,.56708E-02, 
32452E-02, .28338E-02, . 24803E-02, 
14725E-02, . 12962E-02 , .11439E-02, 
69530E-03, . 61401 E-03,. 54121 E-03, 
32331E-03 , . 28348E-03 , .24786E-03, 
14  314E-0  3, .  1 2  4  4  IE- 0  3 , .  10778E-0  3, 
59888E-04 , . 51526E-04 ,.44168E-04, 
23552E-04, .20067E-04, .17762E-04, 
87689E-05 , .74028E-05, .62288E-05, 
308S2E-C5, . 25831E-05,. 21634 E-05, 
10662E-05, .89375E-06, .74997E-06/ 


ALTITUDES  96-190  KM  IN  THE  SECOND  HALF  OF  THE  ARRAY 


DATA  < PR ( I ) ,  1  =  97,192  )/ 

H.  62932E-06 , .  52900E-06, .44468E-06 

I .  22841E-06 , . 19508E-06 , .  16661E-06 

J .  91970E-07 , . 80301E-07 , .70113E-07 

K .  43892E-07 , .39661E-07, .35837E-07 

L. 25050E-07, .23127E-07, .21352E-07 

M.  15983E-07 , .14957E-07, .13997E-07 

N.  10947 E-07, . 10337 E- 07, .97614E-08 

O.  78696E-08 , .74795E-08, .71087E-08 

P. 58604E-08, .55970E-08, .53454E-08 

R .  448  28E-08 , .43063E-08, .41367E-08 

S.  35' 26E-08, . 33839E-08 , . 32507E-08 

T.  27  si4E-08, . 26928E-08 , .25976E-08 

U.  22495E-08, .21700E-08, .20933E-08 

V.  18356E-08 , .17762E-08, .17188E-08 

X .  1507  2E-08 , .  14620 E- 08, .  14182 E- 08 

Y .  1 2557E-08 , . 1218  IE-08 ,. 1181 6E-08 


37482E-06 , .31593E-06, .26B63E-06, 
14310E-06 , .12291 E- 06, .10632E-06, 
61997E-07  ,  .54-8  21E-07,  .49053E-07, 
32652E-07 , .29750E-07, .27299E-07, 
19816E-07 , . 18391E-07, .17145E-07, 
13143E-07 , .12341 E-07, .11623E-07, 
92397E-08 , . 87459 E-08, .82962E-08, 
67682E-08, .64440E-08, .61453E-08, 
51121E-08 , . 48890E-08 ,.46815E-08, 
39738E-08 , .38173E-08, .36670E-08, 
31227E-08 , .29997E-08, .28937E-08, 
25058E-08 , .24173E-08, .23319E-08, 
20257E-08 ,.19602E-08, .18969 E-08, 
16633E-08, .16095E-08, .15575E-08, 
13757E-08, .13345E-08, .12945E-08, 
114  51E-08 , . 11118E-08 , .  107 97 E-08/ 


C 

END 
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